Podem Me Ajudar

[Ethy]

ola vocês podem me ajudar, tenho q fazer um discador e so acho com chamar uma conexão dial up e não com fazela , Grato , pelo Delphi

[Corposemalma]

ola vocês podem me ajudar, tenho q fazer um discador e so acho com chamar uma conexão dial up e não com fazela , Grato , pelo Delphi

Se cadastra lá nesse site que tem:

http://www.delphi.eti.br

Olha só o que eu achei la: (mas não testei)

{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 '; {executável e biblioteca do windows}

Conecta:=Executa+Conexao; {concatena comando e nome da conexão}

Dialup:=Pchar(Conecta); {transforma string em caractere para ser aceita pela função}

winexec(Dialup,sw_show);

end;