colocar a uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
Var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
reg := TRegIniFile.create('RemoteAccess');
Conexao := reg.ReadString('','Default','');
reg.free;
Executa:='rundll32.exe rnaui.dll,RnaDial '; {executavel e biblioteca do
windows}
Conecta:=Executa+Conexao; {concatena comando e nome da conexão}
Dialup:=Pchar(Conecta); {transforma string em caracter para ser aceita
pela função}
winexec(Dialup,sw_show);
end;
Espero ter ajudado.
----- Original Message -----
From: "Thiago Luiz" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 08, 2004 9:46 AM
Subject: [delphi-br] Criação de DialUp através do Delphi...
Salve Srs,
alguém por acaso tem ou já fez uma rotina/componente que possibilite
a criação de uma conexão DialUp ???
agradeço desde já,
Thiago Leite
---
Já deu pra perceber que eu uso o AVG....
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.806 / Virus Database: 548 - Release Date: 5/12/2004
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
