terça-feira, 1 de setembro de 2009

Executando uma chamada para a conexão dial-up

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

Nenhum comentário:

Postar um comentário