Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Вниз

Скриншот   Найти похожие ветки 

← →
TDIONIS   (2003-06-21 11:09) [0]

Здравствуйте, мастера!Я тут решил сделать прогу для снимания скриншотов.Регестрирую Hot key (1) и пишу:
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
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(SaveDialog1.FileName);
bm.Destroy;
JpegIm.Destroy;
end;
Вроде всё работает, но стоит запустить что - то большое (например, GTA3) и нажать 1...перезагрузка.В чём проблема, и как быть?Заранее спасибо!

---

← →
Song   (2003-06-21 11:32) [1]

:)
Изучай DirectX

---

← →
TDIONIS   (2003-06-21 15:00) [2]

Ну...пока изучаю DelphiX (3 день)
> Изучай DirectX

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.066 c