{ 
 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;