Cek Koneksi Internet (online / offline)

simple aplikasi lagi aaah,kecil-kecilan banget,orang bahannya cuma edit text sama button doank,haha.

sebelumnya untuk membuat aplikasi ini rekan2 perlu menambahkan uses WinInet pada bagian usesnya,
nah,sekarang langsung sajah pada kodenya,ane kasih semuanya aja ya seperti berikut :

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function online : boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if online then
  edit1.Text:='status online'
 else
  edit1.Text:='status offline';
end;

function TForm1.online;
begin
 result := (InternetGetConnectedState(nil, 0))
end;

end.

NB : tampilan uses yang ane jangan di ikutin,itu karena ane pake delphi XE2,jadi cukup tambahkan WinInet nya sajah

yah yah
nah sekarang inilah hasilnya :

status oplen :


status onlen :

yoooo aaah dan semoga bermanfaat :D