executar dial-up

Delphi

02/07/2003

estou usando essa rotina para executar a conexao padrao do dial-up
soh q nao funciona, alguem tem alguma ideia ou outra forma de fazer isso?

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;

PS: estou usando win98(para desenvolver), mas preciso q seja flexivel, que execute o dial-up em qlqr win....

K-ROL


K-rol

K-rol

Curtidas 0

Respostas

Oberdan

Oberdan

02/07/2003

Eu tenho este código, porém nunca teste... vê se serve.

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;

[]
Oberdan


GOSTEI 0
Oberdan

Oberdan

02/07/2003

desculpe, não tinha notado que os códigos são iguais.

[]
Oberdan.


GOSTEI 0
POSTAR