Abrir Site na Internet

Delphi

09/05/2003

Aos entendidos no assunto,

Preciso abrir a internet e acessar um site, tentei desta forma obtida aqui mesmo, mas ela informa um erro dizendo que falta o nome da entrada.

procedure TF_Atualiza.ButInternetClick(Sender: TObject);
Var
Conexao, Executa, Conecta:String;
DialUp:PChar;
Reg:TRegIniFile;
begin
reg:=TregIniFile.Create(´RemoteAccess´);
Conexao:=reg.ReadString(´http://www.pentainformatica.com.br´);
reg.free;
Executa:=´rundll32.exe rnaui.dll, RnaDial´; {executavel e biblioteca do windows}
Conecta:=Executa+Conexao; {concatena comando e nome da conexao}
DialUp:=Pchar(Conecta); {transforma string em caracter para ser aceita pela função}
Winexec(DialUp,sw_show);

end;

O que estararia faltando?

desde já eu agradeço quem possa me ajudar.


Valdir Lima

Valdir Lima

Curtidas 0

Respostas

Luciano Pimenta®

Luciano Pimenta®

09/05/2003

Eu uso o seguinte código:
HlinkNavigateString(nil,´http://www.clubedelphi.com.br´);

e funciona beleza, ela abre o site através IE. Declare UrlMon em Uses.

:) :)


GOSTEI 0
Dor_poa

Dor_poa

09/05/2003

:wink:


GOSTEI 0
POSTAR