Delphi calls IE Open Web page

2. Call the appropriate program to open
4. Uses SHELLAPI;
6. Procedure TForm1.  Button1Click (Sender:tobject);
8. Begin
10. Open With IE
12. ShellExecute (Handle, ' open ', ' IExplore.EXE ', ' About:blank ', Nil, SW_SHOWNORMAL);
14. Open With Firefox
16. ShellExecute (Handle, ' open ', ' Firefox.exe ', ' About:blank ', Nil, SW_SHOWNORMAL);
18. Open with default browser
20. ShellExecute (Handle, ' open ', ' Explorer.exe ', ' About:blank ', Nil, SW_SHOWNORMAL);
22. End
24. Another way to call IE open
26. Uses comobj;
28. Procedure TForm1.  Button1Click (Sender:tobject);
30. Procedure Openinie (Aurl: string);
32. var ie:variant;
34. Begin
36. IE: = Createoleobject (' internetexplorer.application ');
38. IE.  Visible: = true;
40. IE.  Navigate (Aurl);
42. End
44. Begin
46. Openinie (' www.132435.com ');
48. End
50. The second method can have more control
52. Uses comobj;
54. Procedure TForm1.  Button1Click (Sender:tobject);
56. Procedure Openinie (Aurl: string);
58. var ie:variant;
60. Begin
62. IE: = Createoleobject (' internetexplorer.application ');
64. IE. Visible: = true; //Visible
66. IE. Left: = 0;
68. IE. Top: = 0;
70. IE. Height: = 600; //Height
72. IE. Width: = 800; //Width
74. IE. MenuBar: = 0; //Cancel menu bar
76. IE. Addressbar: = 0; //Cancel Address bar
78. IE. Toolbar: = 0; //Cancel toolbar
80. IE. StatusBar: = 0; //Cancel status bar
82. IE. Resizable: = 0; //Do not allow user to change window size
84. IE.  Navigate (Aurl);
86. End
88. Begin
90. Openinie (' www.XXX.com ');
92. End

Delphi calls IE Open Web page