Как сделать скриншот во время игры?

Posted by Chas under Delphi

xRamzeSx

procedure TForm1.Button1Click(Sender: TObject);

var

bmp: TBitmap;

DC: HDC;

begin

bmp:=TBitmap.Create;
bmp.Width:=1024;

bmp.Height:=768;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

DC, 0, 0, SRCCOPY);
bmp.SaveToFile(FormatDateTime('dd/mm/yy, hh-nn-ss', Now) + '.bmp');
ReleaseDC(0, DC);
bmp.Free;

end;

тема на форуме

Похожие статьи

• Как сделать снимок memo поля в программе
• Как сделать скриншот в delphi в формате jpeg?
• Движение обьекта на заданный угол
• Как сделать скрин активной программы
• Крестики нолики исходник
• Как нарисовать стрелку в конце эллиптической дуги?
• Описание CopyRect
• Движение фона и объекта на Canvas
• Уменьшить Bitmap
• Сохранить изображение формы