Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Kullanici internete bagli mi

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!');