Как копировать образ экрана в файл |
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