Internet connection exist/de
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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;