Abrir Site na Internet
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
Curtidas 0
Respostas
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.
:) :)
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
09/05/2003
:wink:
GOSTEI 0