Internet connection exist/de
From Lazarus wiki
Jump to navigationJump to search
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Das Unterprogramm stellt fest, ob eine Internetverbindung besteht.
Das Beispiel stellt fest, ob eine Internetverbindung besteht:
uses
WinInet, Windows, ...;
...
// Die Funktion prüft, ob der lokale PC eine Internetverbindung hat
function funIstOnline: boolean;
var
dwrFlag: DWord;
begin
Result := False;
dwrFlag := Internet_Connection_Modem or Internet_Connection_Lan or
Internet_Connection_Proxy;
if InternetGetConnectedState(@dwrFlag, 0) = True then
Result := (dwrFlag = 81);
end;