Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
7th
Дек
Как сделать скриншот в delphi в формате jpeg?
Posted by Chas under Delphi
Procedure PScreen;
const
CAPTUREBLT = $40000000;
var ScreenBM:TBitMap;
SendJPG:TJPEGImage;
begin
ScreenBM:=TBitMap.Create;
SendJPG:=TJPEGImage.Create;
ScreenBM.Width:=Screen.Width;
ScreenBM.Height:=Screen.Height;
BitBlt(ScreenBM.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(0), 0, 0, SRCCopy or CAPTUREBLT);
SendJPG.Assign(ScreenBM);
SendJPG.SaveToFile('d:\MyJPG.jpg');
SendJPG.Free;
ScreenBM.Free;
end;