Определение состояние подключения к интернету

Советы » Dial-up » Определение состояние подключения к интернету

function CheckConnected(hInet: HINTERNET; bModem: Boolean): Boolean; var


dwFlags: DWORD;
begin


dwFlags := INTERNET_CONNECTION_MODEM; if not bModem then
dwFlags := dwFlags or INTERNET_CONNECTION_LAN; // <--по вкусу if Assigned(InternetGetConnectedStateProc) then Result := InternetGetConnectedStateProc(@dwFlags, 0) else
Result := True;
end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com