implementation

 var Document_: DispHTMLDocument; //用于处理网页文档对象

       EPX: IExcelPanelXDisp;

 procedure TForm1.FormShow(Sender: TObject);

 begin

     EPX := ExcelPanelX1.OleObject;        //赋值

     EPX.ActiveDHtml := False;

     EPX.EnableEvent := True;

     EPX.ActiveDHtml := True;

     EPX.Navigate(UserID, True);

     Document_ := EPX.HtmlDocument;

     ViewCode();

 end;

 procedure TForm1.ViewCode(aty :Integer);

 var body,img,range: Variant;

     imgFile: string;

 begin

   img := Document_.getElementById('yzm').nextSibling.nextSibling;

   if aty =  then

   begin

     img.Click();

     this.Sleep();

   end;

   body := Document_.body;

   range := body.createControlRange();

   range.add(img);

   range.execCommand('Copy');

   //获取 Windows 的临时文件夹路径，返回的路径最后不带“\”。

   //获取一个形式如“AA8CBB42-703C-47B9-B959-8E8EBAFA003E” 的 36 位长度的具有“不重复”特征的字符串，一般用于做数据库的 ID 字段内容使用。

   imgFile := this.GetWindowsTempPath + '\' + this.GuidString + '.png';

   this.SaveClipboardToFile(imgFile,);

   if this.FileExists[imgFile] then

   begin

     Image1.Picture.LoadFromFile(imgFile);

     this.DeleteFile(imgFile);

   end;

 end;

 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

 begin

   EPX.FreeMe;

   if CommandLine._DesignMode = 'False' then

   begin

     this.KillProcess('',,,);

   end;

 end;