Текущий архив: 2003.07.03;
Скачать: CL | DM;
Вниз
Скриншот Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
