Buscar por:

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

Código

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.