Возможно ли (вернее как это сделать) программно сделать скриншот

← →
Не скажу кто (2003-05-05 08:34) [0]

Возможно ли (вернее как это сделать) программно сделать скриншот и сохранить его в BMP.

← →
Babay © (2003-05-05 09:16) [1]

Примеры по дельфи в паке help

← →
Кот Бегемот © (2003-05-05 09:43) [2]

Можно,но НЕ СКАЖУ КАК :)))

← →
default © (2003-05-05 12:37) [3]

function ImageDesktopToBMP: TBitmap;
var
DtDC: HDC;
begin

Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
DtDC := GetDC(0);
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width,
Result.Height, DtDC, 0, 0, SRCCOPY);
ReleaseDC(0, DtDC)

end;

← →
viman (2003-05-05 15:24) [4]

var bmp: TBitmap;
jpg: TJPEGImage;
begin
try
bmp := Screen.ActiveForm.GetFormImage;
jpg := TJPEGImage.Create;
jpg.CompressionQuality := 65;
jpg.Assign(bmp);
jpg.SaveToFile(fn+".jpg");
freeAndNil(jpg);
FreeAndNil(bmp);
except on EAccessViolation do ;
end;

Возможно ли (вернее как это сделать) программно сделать скриншот Найти похожие ветки