dial up подключение

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, wininet, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   if not InternetGetConnectedState(@dwConnectionTypes, 0) then
    showmessage('NOT CONNECTED'); // not connected
    if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
       INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
     begin
      showmessage('error'); // error
    end;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   if InternetGetConnectedState(@dwConnectionTypes, 0) then
    showmessage('Все мазя'); // connected
    InternetAutodialHangup(0);
 
 
end;
 
end.