GARANTIR DESCONTO

Fórum Abrir Site na Internet #159013

09/05/2003

0

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

Responder

Posts

10/05/2003

Luciano Pimenta®

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.

:) :)


Responder

Gostei + 0

10/05/2003

Dor_poa

:wink:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar