Текущий архив: 2006.02.26;
Скачать: CL | DM;
Вниз
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
Страницы: 1 вся ветка
Текущий архив: 2006.02.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.091 c
