![]() |
Как программно заграбить полноэкранное DOS окно
Кто знает, как программно заграбить (аналог PrintScreen) полноэкранное DOS окно?
Нижеприведенный код, запоминающий Windows окна на полноэкранном DOS окне дает белый квадрат: var bmp: TBitmap; dc: hdc; jp: TJPEGImage; begin bmp := TBitmap.Create; jp :=TJpegImage.Create; bmp.Width := Screen.Width; bmp.Height := Screen.Height; BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SRCCopy); Clipboard.Assign(bmp); if Clipboard.HasFormat(CF_BITMAP) then begin bmp.Canvas.Font.Color := clGreen; bmp.Canvas.Font.Size:=10; try with Bmp do begin jp.Assign(Bmp); jp.SaveToFile(IntToStr(i)+'.jpg'); end; except end; end; end; |
то есть читать не окно а консоль ?
слямзил из МСДН: Reading and Writing Blocks of Characters and Attributes Код:
#include <windows.h> |
А можно ли это перевести на Delphi?
|
| Часовой пояс GMT +4, время: 00:52. |
Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.