mit Delphi eine Hardcopy vom Bildschirm .

[smart]

Hallo!

Gibt es eine Möglichkeit, mit Delphi eine Hardcopy vom Bildschirm zu machen, aber mit allen geöffneten Fenstern. Hier im Forum habe ich einiges gefunden, die hatten den Nachteil, dass die offenen Fenster nicht mitkopiert wurden.

Gruß
Heike

[scrat1979]

// EDIT: Komplett neuer Post.

Habe gerade bei delphi-fundgrube.de einen Source gefunden und getestet. Macht genau das was Du möchtest.

Delphi-Quellcode:

procedure ScreenCapture(Bmp: TBitmap);
var
  DeskWnd: HWnd;
  DeskDC: HDC;
  DeskCv: TCanvas;
  R: TRect;
  W, H: Integer;
begin
  if Bmp = nil then Exit;
  DeskWnd := GetDesktopWindow;
  DeskDC := GetWindowDC(DeskWnd);
  DeskCv := TCanvas.Create;
  DeskCv.Handle := DeskDC;
  W := Screen.Width;
  H := Screen.Height;
  R := Bounds(0, 0, W, H);
  try
    Bmp.HandleType := bmDIB;
    Bmp.PixelFormat := pf24Bit;
    Bmp.Width := W;
    Bmp.Height := H;
    Bmp.Canvas.CopyMode := cmSrcCopy;
    Bmp.Canvas.CopyRect(R, DeskCv, R);
  finally
    DeskCv.Free;
    ReleaseDC(DeskWnd, DeskDC);
  end;
end; {Marco Lange}

SCRaT

[smart]

Hi Michael!

Klappt sehr gut, vielen Dank für Deine Hilfe.

Gruß
Heike