Tutorial Delphi

  const
  ERROR_USER_DISCONNECTION = 631;
  ERROR_NO_CONNECTION      = 668;

3. Berikutnya buat dua buah variabel global dengan type DWORD

  ret, ConnNumber: DWORD;

4. Langkah Selanjutnya membuat sebuah fungsi yang berfungsi untuk melakukan dialup koneksi sebagai berikut

// Dial Up Koneksi
function Dial() : Boolean;
var
ret : LongInt;
NameOfDialupConnectionToUse : pchar;

begin
  // Nama Koneksi
  NameOfDialupConnectionToUse:= 'SAINET';
  ret:= InternetDial(
            Form1.Handle,
            NameOfDialupConnectionToUse,
            INTERNET_AUTODIAL_FORCE_UNATTENDED,
            @ConnNumber,
            0);

  case ret of
    ERROR_SUCCESS:
    // Jika Berhasil
      begin
        Result := True;
        exit;
      end else
      // Jika gagal
      begin
       Result := False;
       exit;
      end;
      end;
end;

5. Kemudian kita perlu membuat sebuah solusi agar aplikasi juga bisa melakukan disconnect/hangup dari internet. dalam hal ini dilakukan oleh procedure seperti berikut

// Putus Koneksi
procedure Hangup;
begin
  InternetHangup(ConnNumber, 0);
end;

6. Langkah terakhir, kita hanya perlu memanggil fungsi dan procedure yang telah kita buat pada langkah sebelumnya. contoh penerapannya adalaha sebagai berikut

    If Button2.Caption='Dial' then
        begin
            If Dial() = True then
              begin
              Label1.Caption:='Koneksi Berhasil. . .';
              Button2.Caption:='Hangup';
              end else
              Label1.Caption:='Koneksi Di Batalkan. . .';
          end else
                If Button2.Caption='Hangup' then
                    begin
                    Hangup;
                    Label1.Caption:='Terputus. . .';
                    Button2.Caption:='Dial';
                    end;

Sedikit Tips : Tambahkan sebuah timer dalam form projek anda lalu letakan code berikut. ini berfungsi untuk mengecek koneksi internet secara continoue

  if NOT InternetAutoDial(INTERNET_AUTODIAL_FORCE_UNATTENDED,0) then
  Label1.Caption:='Error Establishing Connection';
  if NOT InternetAutodialHangup(0)then
  Label1.Caption:='Error Disconnecting...';