[Decoding]

1:

Код:

procedure SaveHTMLSourceToFile( WB: TWebBrowser );
begin
   try
      WB.ExecWB( 4, 0 );
   except
      on E: Exception do
         E.Create( 'Ошибка при сохранении HTML файла' );
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SaveHTMLSourceToFile( WebBrowser1 );
end;

2:
Тут я не уверен, но учитывая, что TWebBrowser основан на движке IE, может сработать.

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre nt Version\Internet Settings]
"GlobalUserOffline"=dword:00000000 - в любом режиме
"GlobalUserOffline"=dword:00000001 - в автономном режиме