как сделать скриншот memo1 в 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;

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

Мне необходимо сделать скрин активного окна. (читать всё…)

(читать всё…)

Изображение сделано с помощью PrintScreen и соответсвенно оно в формате *.BMP (читать всё…)