Screen

← →
Seraphim (2006-02-12 08:51) [0]

Если кто небудь знает - скажите, как можно сделать скриншот на Delphi?

← →
ZeroDivide © (2006-02-12 10:30) [1]

DC: HDC;
...
FScreenShot := TJpegImage.Create;
BackImage := TBitmap.Create;
try
DC := GetDC(0);
BackImage.Width := Screen.Width; BackImage.Height := Screen.Height;
BitBlt(BackImage.Canvas.Handle, 0, 0, BackImage.Width, BackImage.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
FScreenShot.CompressionQuality := 30;
FScreenShot.Assign(BackImage);
FScreenShot.SaveToFile("name.jpg");
finally
BackImage.Free;
FScreenShot.Free;
end;

← →
PZ (2006-02-12 11:14) [2]

Еще можно посмотреть ответ на вопрос 29435 на Королевстве Delphi

Screen Найти похожие ветки