Delphi调用IE打开网页

1. //调用相应程序打开  
2. uses ShellAPI;  
3. procedure TForm1.Button1Click(Sender: TObject);  
4. begin  
5. //用IE打开  
6. ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);  
7. //用火狐打开  
8. ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);  
9. //用默认浏览器打开  
10. ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);  
11. end;  
12. //另一种调用IE打开的方法  
13. uses ComObj;  
14. procedure TForm1.Button1Click(Sender: TObject);  
15. procedure OpenInIE(aURL: string);  
16. var IE: Variant;  
17. begin  
18. IE := CreateOleObject('InternetExplorer.Application');  
19. IE.Visible := true;  
20. IE.Navigate(aURL);  
21. end;  
22. begin  
23. OpenInIE('www.132435.com');  
24. end;  
25. //第二种方法可以有更多控制  
26. uses ComObj;  
27. procedure TForm1.Button1Click(Sender: TObject);  
28. procedure OpenInIE(aURL: string);  
29. var IE: Variant;  
30. begin  
31. IE := CreateOleObject('InternetExplorer.Application');  
32. IE.Visible := true; //可见  
33. IE.left := 0;  
34. IE.top := 0;  
35. IE.height := 600; //高度  
36. IE.width := 800; //宽度  
37. IE.menubar := 0; //取消菜单栏  
38. IE.addressbar := 0; //取消地址栏  
39. IE.toolbar := 0; //取消工具栏  
40. IE.statusbar := 0; //取消状态栏  
41. IE.resizable := 0; //不允许用户改变窗口大小  
42. IE.Navigate(aURL);  
43. end;  
44. begin  
45. OpenInIE('www.XXX.com');  
46. end;  

转载于:https://www.cnblogs.com/plug/p/4557211.html