title image


Smiley Re: Prüfen ob ich Online bin
Vor einiger Zeit gab es hier folgende Lösung, die bei mir auch funktioniert.uses WinInet; function InternetConnected: Boolean;const INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet. INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet. INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to connect to the Internet. INTERNET_CONNECTION_MODEM_BUSY = 8; // local system's modem is busy with a non-Internet connection.var dwConnectionTypes: dword;begin dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes,0);end; procedure TForm1.Button1Click(Sender: TObject);begin if InternetConnected then ShowMessage('Ich bin drin!') else ShowMessage('Ich bin draußen!'); end; end;

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: