如何对我的实际窗口进行屏幕截图
How to make a screen shot of my actual window

我定义了一个Tactionlist，其中包含显示/隐藏表单的所有操作。 这可以是模态（显示模态）或非模态（可见：= true）。 我找到了一些代码来捕获屏幕截图：

procedure GetScreenShot(shotType: TScreenShotType; var img: TJpegImage);
var
  w,h: integer;
  DC: HDC;
  hWin: Cardinal;
  r: TRect;
  tmpBmp: TBitmap;
begin
  hWin := 0;
  case shotType of
    sstActiveWindow:
      begin  //This is what I use
        //only the active window
        hWin := GetForegroundWindow;
        dc := GetWindowDC(hWin);
        GetWindowRect(hWin,r);
        w := r.Right - r.Left;
        h := r.Bottom - r.Top;
      end;  //sstActiveWindow
    sstActiveClientArea:
      begin
      end;  //sstActiveClientArea
    sstPrimaryMonitor:
      begin
      end;  //sstPrimaryMonitor
    sstDesktop:
      begin
      end;  //sstDesktop
    else begin
      Exit;
    end;  //case else
  end;  //case

  //convert to jpg
  tmpBmp := TBitmap.Create;
  try
    tmpBmp.Width := w;
    tmpBmp.Height := h;
    BitBlt(tmpBmp.Canvas.Handle,0,0,tmpBmp.Width,
      tmpBmp.Height,DC,0,0,SRCCOPY);
    img.Assign(tmpBmp);
  finally
    ReleaseDC(hWin,DC);
    FreeAndNil(tmpBmp);
  end;  //try-finally
end;

我的“扫描”例程如下：

for ACnt := 0 to GenActions.ActionCount - 1 do
    begin
    try
    LogBook.ML(Format('%d. Aktion %s gestartet',[ACnt,quotedstr(GenActions.Actions[ACnt].Name)]));
    if GenActions.Actions[ACnt].Tag > 0 then
         begin  // Action is ready for test
         TAction(GenActions.Actions[ACnt]).checked:=true;
         if GenActions.Actions[ACnt].Execute then
              begin
              LogBook.ML(Format('%d. Aktion %s erfolgreich ausgeführt',[ACnt,quotedstr(GenActions.Actions[ACnt].Name)]));
              if SaveScreens then   // var boolean
                   begin
                   img:=TJPEGImage.Create;
                   try
                   GetScreenShot(sstActiveWindow,img);         
                   img.SaveToFile(IncludeTrailingBackslash(Optionen.PictPfad.Text)+inttostr(ACnt)+'.jpg');
                   finally
                        img.Free;
                        end;
                   end;
              repeat
              sleep(100);
              Application.ProcessMessages;
              until not DM_Gen.TestTimer.Enabled ;  //for modal windows a timer sends modalresult:=mrcancel
              end;
         end
    else
         begin
         LogBook.ML(Format('%d Aktion %s nicht getestet',[ACnt,quotedstr(GenActions.Actions[ACnt].Name)]));
         end;
    except
         on E: Exception do
         LogBook.ML(Format('%d. Aktion hat Fehler %s gemeldet',[ACnt,E.Message]));
         end;
    end;
finally
    LogBook.ML('Testlauf beendet');
    end;

当我运行这段代码时，我得到的前150个动作是主表单，然后是其他表单，例如日志簿或浏览器，或者……几乎没有我想要的表单。

我发现了一些建议使用“ findwindow”的帖子。 这是我不知道窗口确切标题的问题，因为在所有窗口中，标题都会在onshow事件中进行修改以显示实际信息。

有什么想法可以捕捉到我实际打开的窗口吗？

因此，一个问题是了解我的行为是如何工作的。 这里有两个典型的例子：

procedure TDM_Gen.VALstVisActExecute(Sender: TObject);
begin
if Sender is TAction then
    begin   // set some properties
    end;
ListeVeranst_2.Visible:=VALstVisAct.Checked;
end;

procedure TDM_Gen.NewVAActExecute(Sender: TObject);
var
NewVA : TNewVeranstaltung;
begin
if Sender <> nil then
    begin
    if Sender is TButton then
         begin   //do something depending on who fired
         end;
    end;
try
NewVA:=TNewVeranstaltung.Create(nil);
case NewVA.ShowModal of
mrOk:
    begin    // e.g. refresh some lists
    end;
mrCancel:    
    begin    // clean up
    end;
end;

finally
    NewVA.Free;
    end;
end;

窗口的标题是在onshow事件期间通过以下方式设置的：

caption:=Format('This is window %s %s',[Param1, Param2]);