Category: Internet/Lan
Title: Connect to the internet
Date added: 15.03.2006
Hits: 9252

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    edtEntry: TEdit;
    edtUser: TEdit;
    edtPass: TEdit;
    
procedure Button1Click(Sender: TObject);
    
procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
  dir := 'C:';
  ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar(edtEntry.Text + ' /DISCONNECT');
  dir := 'C:';
  ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;
end.

1. How to get Internet Explorer favourites? (3793 Hits)

2. How to delete the 'Temporary Internet Files'? (5568 Hits)

3. How to get the URL from running Internet Explorer? (6311 Hits)

4. How to extract the domain (host) name from an e-mail address? (5428 Hits)

5. How to get or set the startpage for the Internet Explorer? (3458 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.