Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как копировать образ экрана в файл?

01.01.2007

На форме у меня стоит TImage (его можно сделать невидимым)

uses JPEG;
 

 
...
var i: TJPEGImage;
begin
 
try
    i
:= TJPEGImage.create;
   
try
      i
.CompressionQuality := 100;
      image
.Width := screen.width;
      image
.height := screen.height;
      DWH
:= GetDesktopWindow;
     
GetWindowRect(DWH, DRect);
     
DescDC := GetDeviceContext(DWH);
     
Canv.Handle := DescDC;
     
DRect.Left := 0;
     
DRect.Top := 0;
     
DRect.Right := screen.Width;
     
DRect.Bottom := screen.Height;
     
Image.Canvas.CopyRect(DRect, Canv, DRect);
      i
.assign(Image.Picture.Bitmap);
      I
.SaveToFile('M:\MyFile.jpg');
   
finally
      i
.free;
   
end;
 
except
 
end;

Типы использованных переменных:

Dwh : HWND;

DRect: TRect;

DescDC : HDC;

Canv : TCanvas;

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru