Question

delphi 截取当前活动窗口？

控件：button点击button控件保存当前活动窗口到指定根目录文件夹内类似于“Alt”+“Print Screen”

Answer 1

截屏为BMP文件

program GetScrnBmp;

uses
Windows, Graphics;

{$R *.RES}

var
B: TBitmap;
S: string;

begin

B := TBitmap.Create;

B.Width := GetSystemMetrics(SM_CXSCREEN); {Screen.Width}
B.Height := GetSystemMetrics(SM_CYSCREEN); {Screen.Height}

BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);

if ParamStr(1) <> '' then
S := ParamStr(1) + '.bmp'
else
S := 'Screen.bmp';

b.SaveToFile (s);

b.Free;

end.