怎样实现像IE浏览器里的“脱机工作”？完全要与IE的一样！

Question

检测 TWebBrowser.Offline
如果控制它就设置 TWebBrowser.Offline在TEmbeddedWB控件这样写
bOffline:= TEmbeddedWB.IsGlobalOffline;
TEmbeddedWB.SetGlobalOffline(bOffline:boolean)

Answer 1

function SetOffline:Boolean;    //设定浏览器为离线状态
var
  ConInfo:INTERNET_CONNECTED_INFO;
begin
  ConInfo.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
  ConInfo.dwFlags := ISO_FORCE_DISCONNECTED;
  InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConInfo, sizeof(ConInfo));
  result:=True;
end;需要引用Wininet