Как сделать скриншот в формате jpeg

[hacknet]

jpgImg.SaveToFile(FormatDateTime('yyyymmhhnnsszz',now)'Screenshot.jpg');

не работает(

var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  bm.Width := Screen.Width;
  bm.Height := Screen.Height;
  BitBlt(bm.Canvas.Handle, 0, 0,
  bm.Width, bm.Height,
  GetDC(0), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 20;
  JpegIm.Compress;
 JpegIm.SaveToFile(FormatDateTime('yyyymmhhnnsszz',now)'Screenshot.jpg');
  bm.Destroy;
  JpegIm.Destroy;
 end;

[Пепел Феникса]

jpgImg.SaveToFile(FormatDateTime('yyyymmhhnnsszz',now)+'_Screenshot.jpg');

немного то читайте код, а не тупо копируйте.

[hacknet]

глупо будет звучать, а как же путь для сохранения) спасибо

[Delphi_ProGer]

jpgImg.SaveToFile('здесь путь для сохранения');

Пепел Феникса всё нормально вам написал!

[EridorBlade]

В продолжении этой темы...
А кто нибудь знает как (не используя хук) отловить нажатие Print Screen. В обработчике событий OnKeyDown если например выводить Key, то есть
Код:

Label1.Caption:=' No = '+IntToStr(Key);

ряд клавиш таким способом не отлавливается

[Delphi_ProGer]

Поставте в таймер на проверку:
Делал подобное давно, так что могут быть ошибки, пытайтесь:

if GetAsyncKeyState(VK_PRINT)>0 then ...

[MaxOz]

Господа, требуется помощь профессионалов.

пытаюсь в службу вставить создание скриншотов (чтобы скрины делались каждую минуту), процедура имеет следующий вид:

procedure TScreenMaker.OnExecuteProcedure(Sen der: TService);
var
JpegIm: TJpegImage;
bm: TBitMap;
i: integer;
begin
for I := 1 to 5 do
begin
bm := TBitMap.Create;
bm.Width := Screen.Width;
bm.Height := Screen.Height;
BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height,
GetDC(0), 0, 0, SRCCOPY);
JpegIm := TJpegImage.Create;
JpegIm.Assign(bm);
JpegIm.CompressionQuality := 20;
JpegIm.Compress;
JpegIm.SaveToFile('C:\Projects\' + FormatDateTime('yyyymmddhhnn',now) +
'Screenshot.jpg');
bm.Destroy;
JpegIm.Destroy;
sleep(60000);
end;
end;

пока все в цикле, но это не важно, просто тестирую вариант, дальше будут условия вызова.
проблема в том, что создаются файлики картинок размером с экран, только они пустые (белые). В чем может быть косяк? Пытался вставить этот код в приложение, чтобы срабатывал по нажатию кнопки - все срабатывает замечательно. Почему не работает в службе?

[Пепел Феникса]

службы работают под другим пользователем, если не ошибаюсь.

[JTG]

Не-интерактивные службы не могут взаимодействовать с рабочим столом. А в Vista и старше вообще выполняются в отдельной терминальной сессии. Безопасность, знаете ли.

[MaxOz]

Сообщение от JTG

Не-интерактивные службы не могут взаимодействовать с рабочим столом. А в Vista и старше вообще выполняются в отдельной терминальной сессии. Безопасность, знаете ли.

Т.е. службы заставить делать скрины невозможно, только через обычное приложение?