Текущий архив: 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.039 c