Delphi dicas

Executar conexão dial up no winxp e nt - unit completa

Unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ShellApi, XPMan;



type

        TForm1 = class(TForm)

        btnConectar: TButton;

        btnDesconectar: TButton;

        edtServidor: TEdit;

        edtUsuario: TEdit;

        edtSenha: TEdit;

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        XPManifest1: TXPManifest;

        btnFechar: TButton;

        procedure btnConectarClick(Sender: TObject);

        procedure btnDesconectarClick(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



// Declarar ShellApi na seção Uses



procedure TForm1.btnConectarClick(Sender: TObject);

var

cmd, serv, arq, dir: PChar;

begin

        // Conectar

        cmd := 'open';

        arq := 'rasdial.exe';

        serv := PChar(edtServidor.Text + ' ' + edtUsuario.Text + ' ' + edtSenha.Text);

        dir := 'C:';

        // Chamar o rasdial.exe com o Shellexecute

        ShellExecute(Self.Handle, cmd, arq, serv, dir, SW_SHOWMINNOACTIVE);

end;





procedure TForm1.btnDesconectarClick(Sender: TObject);

var

cmd, serv, arq, dir: PChar;

begin

        // Desconectar

        cmd := 'open';

        arq := 'rasdial.exe';

        serv := PChar(edtServidor.Text + ' /DISCONNECT');

        dir := 'C:';

        ShellExecute(Self.Handle, cmd, arq, serv, dir, SW_SHOWMINNOACTIVE);

end;



end.