如何一运行程序便打开一个指定url --

阅读:481次   时间:2003-08-13 00:00:00   字体:[ ]
uses Comobj, ... ... ;

{...}

var
Form1: TForm1;
IEApp: Variant;

{...}

procedure TForm1.Button1Click(Sender: TObject);
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://www.csdn.net‘);
end;
 源码推荐
关于本站 - 广告服务 - 会员指南 - 联系方法
Copyright ©2003-2011 源码天空 All Rights Reserved