function KullaniciOnlinemi:boolean;
var
Baglantidurumu:dword;
begin
Baglantidurumu := 2 {Network} +1 {Modem} + 4 {proxy} ;
result := InternetGetConnectedState(@Baglantidurumu,0);
end;
{----------Kullanilmasina Örnek-----------}
if KullaniciOnlinemi = true then
ShowMessage('Kullanici Bagli')
else ShowMessage('Kullanici bagli degil!');