Handle von Sub-Fenster anderer Applikation implementieren

[DeddyH]

Hier ein schnell dahingeschludertes Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var DC: hDC;
    Wnd: HWnd;
begin
  if ShellExecute(0,'open','calc.exe',nil,nil,SW_SHOW) > 32 then
    begin
      Sleep(500);
      Wnd := FindWindow(nil,'Rechner');
      if Wnd <> 0 then
        begin
          DC := GetDC(Wnd);
          if DC <> 0 then
            begin
              BitBlt(Canvas.Handle,0,0,ClientWidth,ClientHeight,DC,0,0,SRCCOPY);
              ReleaseDC(DC,Wnd);
            end;
        end;
    end;
end;