delphi 打开指定网址

过Delphi实现打开程序后访问指定网站代码如下：

1、调用系统API（非知名网站杀毒软件报木马）

uses ShellApi, ... ... ;

ShellExeCute(Handle,nil,'http:\\charmhouse.taobao.com',nil,nil,SW_Normal);

2、调用IE法（这个杀毒软件好像不报）

uses Comobj, ... ... ;

{...}

var
　　Form1: TForm1;
　　IEApp: Variant;

实现代码

begin
  IEApp := CreateOLEObject('InternetExplorer.Application');
  IEApp.visible := true;
  IEApp.Top := 0;
  IEApp.Left := 0;
  IEApp.width := screen.width;             //可改你需要的宽度，此时为全屏
  IEApp.height := screen.height;          //可改你需要的高度，此时为全屏
  IEApp.Navigate('http://charmhouse.taobao.com');
end;

 

 

转载于:https://www.cnblogs.com/coorun/p/3568346.html