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

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

• Get ALL Ip
• FTP - докачка файлов
• Присоединиться к FTP серверу и загрузить с него файл