Per Mausklick Formular als BMP abspeichern

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von mindforce · begonnen am 24. Feb 2006 · letzter Beitrag vom 25. Feb 2006

Antwort

Seite 2 von 2

SirThornberry

(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge

Delphi 2006 Professional

#11

Re: Per Mausklick Formular als BMP abspeichern

25. Feb 2006, 13:18

hast du denn mal nach screenshot gesucht? dann hättest du was gefunden.

zusammenfalten · markieren

Delphi-Quellcode:

			var LDC: Cardinal;

    LBmp: TBitmap;

begin

  LBmp := TBitmap.Create;

  LDC := GetDC(0);

  LBmp.Width := Screen.Width;

  LBmp.Height := Screen.Height;

  BitBlt(LBmp.Canvas.Handle, 0, 0, LBmp.Width, LBmp.Height, LDC, 0, 0, SRCCOPY);

  ReleaseDC(0, LDC);

  LBmp.SaveToFile('e:\screenshot.bmp');

  LBmp.Free;

end;