摘要：
//调用相应的程序打开usesShell API；procedureTForm1.ButtonClick（发件人：TObject）；开始//使用IE打开ShellExecute（句柄，“Open”，“IExplore.EXE”，“about:black”，nil，SW_SHOWNORMAL）//打开ShellExecutive（句柄，”Open“，”firefox.ex
- //调用相应程序打开
- uses ShellAPI;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- //用IE打开
- ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
- //用火狐打开
- ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);
- //用默认浏览器打开
- ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);
- end;
- //另一种调用IE打开的方法
- uses ComObj;
- procedure TForm1.Button1Click(Sender: TObject);
- procedure OpenInIE(aURL: string);
- var IE: Variant;
- begin
- IE := CreateOleObject('InternetExplorer.Application');
- IE.Visible := true;
- IE.Navigate(aURL);
- end;
- begin
- OpenInIE('www.132435.com');
- end;
- //第二种方法可以有更多控制
- uses ComObj;
- procedure TForm1.Button1Click(Sender: TObject);
- procedure OpenInIE(aURL: string);
- var IE: Variant;
- begin
- IE := CreateOleObject('InternetExplorer.Application');
- IE.Visible := true; //可见
- IE.left := 0;
- IE.top := 0;
- IE.height := 600; //高度
- IE.width := 800; //宽度
- IE.menubar := 0; //取消菜单栏
- IE.addressbar := 0; //取消地址栏
- IE.toolbar := 0; //取消工具栏
- IE.statusbar := 0; //取消状态栏
- IE.resizable := 0; //不允许用户改变窗口大小
- IE.Navigate(aURL);
- end;
- begin
- OpenInIE('www.XXX.com');
- end;