Многие задаются вопросом: "Как определить, что компьютер подключён к Интернет?". Я тоже задался данным вопросом. В результате моих раскопок было найдено решение. Взглянем на код функции, представленной ниже.
type
TInternetStatus = (isNone, isOnline, isOffline);
function GetInternetStatus: TInternetStatus;
var
State: Cardinal;
begin
State := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
if InternetGetConnectedState(@State, 0) then
Result := isOnline
else
Result := isOffline;
end;
Вот так я ответил на данный вопрос. Если хотите проверить на деле, то предлагаю скачать демонстрационный пример или исходники, которые можно взять здесь.
| | 18.10.2005 |
