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.
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
Curtir tópico
+ 0
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.
:) :)
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
Clique aqui para fazer login e interagir na Comunidade :)