实现IE脱机工作和联机工作的切换

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;

function SetOnline:Boolean;    //设定浏览器为联机状态
var
  ConInfo:INTERNET_CONNECTED_INFO;
begin
  ConInfo.dwConnectedState := INTERNET_STATE_CONNECTED;
  ConInfo.dwFlags := 0;
  InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConInfo, sizeof(ConInfo));
  result:=True;
end;

记得要引用wininet。