Как копировать образ экрана в файлDelphi , ОС и Железо , Монитор и ЭкранКак копировать образ экрана в файл
Автор: Vit На форме у меня стоит TImage (его можно сделать невидимым) 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; Статья Как копировать образ экрана в файл раздела ОС и Железо Монитор и Экран может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Монитор и Экран ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |