Como conectar ao clicar no botão

04/12/2005

Tentei esse código mas não deu certo, porque falta a DLL rnaui.dll:

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);



Aspirante

Respostas

13/12/2005

Sabado

me passa teu email que te envio o exemplo de conexão por dial up


Responder Citar

14/12/2005

Aspirante

opa. claro. tá aqui meu email:

junior_dkm@hotmail.com

ok. valeu cara.


Responder Citar