uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin //用默认浏览器打开 ShellExecute(Handle, 'open', 'Explorer.exe', 'http://www.baidu.com', nil, SW_SHOWNORMAL); //用IE打开 ShellExecute(Handle, 'open', 'IExplore.EXE', 'http://www.baidu.com', nil, SW_SHOWNORMAL); //用火狐打开 ShellExecute(Handle, 'open', 'firefox.exe', 'http://www.baidu.com', nil, SW_SHOWNORMAL); end; |
转载请注明:Delphi7» Delphi7打开网址实例
标签: