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

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;