CaptureEXEDlg Example for Delphi 4.0

This is also the example for the CaptureInfoResType, CaptureInfoResIndex, CaptureInfoResID, and CaptureInfoExeName properties.

procedure TForm1.Button4Click(Sender: TObject);
begin
   {display CaptureExe Dialog}
    LEADScr1.CaptureEXEDlg(Self, 'c:\windows\calc.exe', CAPTURE_ALL, CAPTURE_DLG_TREEVIEW, 0);

    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;

    {display results}
    Edit1.Text := IntToStr(LEADScr1.CaptureInfoResType);
    Edit2.Text := IntToStr(LEADScr1.CaptureInfoResIndex);
    Edit3.Text := LEADScr1.CaptureInfoResourceId;
    Edit4.Text := LEADScr1.CaptureInfoExeName;
end;