Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.047 c
1-1138173909
scolopax
2006-01-25 10:25
2006.02.26
Отображение хода работы алгоритма


15-1138946494
Ega23
2006-02-03 09:01
2006.02.26
С Днём рождения! 3 февраля


2-1139649510
ruslann
2006-02-11 12:18
2006.02.26
рисование блок-схем на форме


2-1139319160
tytus
2006-02-07 16:32
2006.02.26
TBucketList!


15-1139058841
VseHotjatIJaHo4u
2006-02-04 16:14
2006.02.26
Таймер, Т_Т