Criando conex�o DIal-up atrav�z do delphi

Question

Caros colegas , estou precisando de um rotina para criar conex�o de acesso a rede dial-up, p�is tenho um sistema que necessita de uma conex�o dial-up, e toda vez que preciso instal�-lo, tenho que criar a conex�o manualmente! Iniciar->Programas->Acessorios->Acesso a Rede Dial-up....

Agrade�o desde j� qualquer ajuda

Luciano

Carnette · Answer

Executando uma chamada para a Conex�o Dial-Up

Insira um objeto do tipo Button definindo sua propriedade name para Button1.

implementation
uses Registry;
{$R *.DFM}
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;