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

Previous  Top  Next

    
 

 

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

 

Code:

uses JPEG;

 

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

...

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;

 

 

©Drkb::03818

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

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