program SaveCurrentWebPage;
// This script saves the current web
// page using IE's File->Save As...

const
  cDirectory = 'c:\temp';
  cFilename  = 'zzz.mht';

procedure OnDocumentComplete(URL : string);
begin         
  if IsPartOf('http://www.yahoo.com', URL) then
    begin            
      // goto file->save as
      SendKeyPress('ALT+F');
      SendKeyPress('A');
      // change directory
      SendString(cDirectory);
      SendKeyPress('ENTER');
      // name of web page
      SendString(cFilename);  
      // press Save button
      SendKeyPress('ALT+S');          
      NewbieScriptEnd;
    end;   
end;
                         
begin    
  if FileExists(cDirectory+'\'+cFilename) then
    DeleteFile(cDirectory+'\'+cFilename);
  SetExecuteBrowser('IE');
  Navigate('http://www.yahoo.com');      
end.