Criando conexão DIal-up atravéz do delphi
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
Agradeço desde já qualquer ajuda
Luciano
Anonymous
Curtidas 0
Respostas
Carnette
16/02/2003
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;
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;
GOSTEI 0