Delphi-PRAXiS - Delphi mit Delphi eine Hardcopy vom Bildschirm .

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi mit Delphi eine Hardcopy vom Bildschirm . (https://www.delphipraxis.net/96698-mit-delphi-eine-hardcopy-vom-bildschirm.html)

mit Delphi eine Hardcopy vom Bildschirm .

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

Re: mit Delphi eine Hardcopy vom Bildschirm .

// 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

Re: mit Delphi eine Hardcopy vom Bildschirm .

Hi Michael!

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

Gruß
Heike