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

[egorzenit]

всем привет.
подскажите как сделать скриншот в delphi? в формате jpeg.
и второй вопрос как сделать в программе горячую клавишу?

Было название - "Скриншот"

[egorzenit]

горячая клавиша для скриншота.

[SERG1980]

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;

[egorzenit]

а как насчет клавиши?

[Хамяг]

registerhotkey

[Marinesku]

Произвести эмуляцию кнопки PrintScreen, после чего открыть на автомате Paint, произвести эмуляцию кнопок Ctrl+V (вставить). Ведь именно так вы делаете скриншоты вручную. И далее эмуляциями кнопок сохранить.

Как делать эмуляцию кнопок, можно подробно почитать здесь:

http://www.delphi-vsem.ru/012.html

[hacknet]

мужики дарово, делаю скриншот так

uses jpeg;
var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=100;
jpgImg.SaveToFile('Screenshot.jpg');
jpgImg.Free;
bmp.Free;
end;

подскажите как, сохранить его в рандомном имени, чтоб имя всегда было разное!? спасибо

[Stilet]

чтоб имя всегда было разное!?

Рандом тут не помошник

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

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

Рандом тут не помошник

не, ну почему же, помощник, но это не самый лучший вариант.

[Аватар]

Есть еще GetTempFileName, можно воспользоваться