Принт скрин

[MAcK]

Как сделать принт скрин активной формы, а не всего экрана. Было бы хорошо и пример

[rpy3uH]

пример получения снимка экрана

var
 bmp: TBitmap;
 DC: HDC;

begin

 bmp:=TBitmap.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);
 bmp.SaveToFile('Screen.bmp');

 ReleaseDC(0, DC);
end;

чтобы сделать снимок окна, надо получить текущее активное окно через GetForegroundWindow, GetDC(0) ноль заменить на хендл, и соответсвтенно изменить координаты и размеры снимка в функции bitblt (2,3,4,5 параметры)