Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Интернет \ Установить или получить статус Off-Line

Установить или получить статус 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;

Название: Установить или получить статус Off-Line
Дата публикации: 2004-09-03 (2610 Прочтено)

 
 

 

Page generation 0.035 seconds