Olá galera, nesta dica irei mostrar como abrir uma página usando o Internet Explorer.
Adicione:
Edit = EdtEndereco
Button = BtnAbrir
Vamos dar uses em comObj.
Agora criamos um método para executar a chamada da página.
procedure TFrmPrincipal.AbrirIR(aURL: string);
var
IE: Variant;
WinHanlde: HWnd;
begin
if (VarIsEmpty(IE)) then
begin
IE :=CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate(aURL);
end
else
begin
WinHanlde := FindWindow('IEFrame', nil);
if (0 <> WinHanlde) then
begin
IE.Navigate(aURL);
SetForegroundWindow(WinHanlde);
end
else
ShowMessage('Internet Explorer não pode ser aberto!');
end;
end;
Evento onClick do BtnAbrir
procedure TFrmPrincipal.BtnAbrirClick(Sender: TObject);
begin
AbrirIR(EdtEndereco.Text);
end;
end.
Fico por aqui ate à próxima Quick Tips.
Um abraço
Wesley Y
wyamazack@rwsolution.com.br
