Установить или получить статус Off-Line

Ребенок спрашивает маму:
- Мамочка! А почему мой папа не делает мне козу и не шлепает по попке?
- Потому что нет у тебя больше папки, - рыдая, сказала мама. - Он купил себе модем и подключился к Интернету!

{ 
  Users can choose to work offline by selecting Work Offline on the 
  File menu in Internet Explorer 4.0 and later. When Work Offline is selected, 
  the system enters a global offline state independent of any current network 
  connection, and content is read exclusively from the cache. 
} 

uses wininet; 

// Get offline state 
// Alhaiseb Misurata Libya 

function IsGlobalOffline: Boolean; 
var 
  State, Size: DWORD; 
begin 
  Result := False; 
  State  := 0; 
  Size   := SizeOf(DWORD); 
  if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @State, Size) then 
    if (State and INTERNET_STATE_DISCONNECTED_BY_USER) <> 0 then 
      Result := True; 
end; 


//Set offline state 

procedure SetGlobalOffline(fGoOffline: Boolean); 
var 
  ci: INTERNET_CONNECTED_INFO; 
begin 
  if fGoOffline then 
  begin 
    ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER; 
    ci.dwFlags          := ISO_FORCE_DISCONNECTED; 
  end 
  else 
    ci.dwConnectedState := INTERNET_STATE_CONNECTED; 
  InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, SizeOf(ci)); 
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 828 • TDictionary Custom Sort 6 822 • Fast Watermark Sources 6 603 • 3D Designer 9 567 • Sik Screen Capture 6 942 • Patch Maker 7 389 • Айболит (remote control) 7 336 • ListBox Drag & Drop 6 196 • Доска для игры Реверси 98 181 • Графические эффекты 7 510 • Рисование по маске 6 794 • Перетаскивание изображений 5 648 • Canvas Drawing 6 027 • Рисование Луны 5 819 • Поворот изображения 5 270 • Рисование стержней 3 862 • Paint on Shape 3 018 • Генератор кроссвордов 3 974 • Головоломка Paletto 3 151 • Теорема Монжа об окружностях 3 986 • Пазл Numbrix 2 633 • Заборы и коммивояжеры 3 444 • Игра HIP 2 360 • Игра Go (Го) 2 278 • Симулятор лифта 2 676 • Программа укладки плитки 2 236 • Генератор лабиринта 2 791 • Проверка числового ввода 2 398 • HEX View 2 733 • Физический маятник 2 424