terça-feira, 1 de setembro de 2009

Executando internet explorer

Uses comobj;

procedure TForm1.logoClick(Sender: TObject);
var ie : Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true;
IE.Navigate('www.endreco.com.br');
end;

Nenhum comentário:

Postar um comentário