深藍色論壇

代碼: 選擇全部

    uses ComObj 
     
    procedure Tform1.Button2Click(Sender: TObject); 
    var 
      i:Variant; 
    begin 
      i:=CreateOleObject('InternetExplorer.Application.1'); 
      i.Visible:=True; 
      i.Navigate('http://tw.yahoo.com'); 
      i.Addressbar := False; 
    end;