delphi的简单后台抓图

以下是网上找到的后台抓图,利用PrintWindow这个API, 只能抓普通的不在活动前台,没有最小化的后台窗口

function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';
procedure TTestForm1.Button21Click(Sender: TObject);
var
  bmp : TBitmap;
  wnd : cardinal;
  rec : TRect;
begin
   wnd := FindWindow(nil, '计算器'); // 查找窗口句柄,这里用计算器演示
   GetWindowRect(wnd, rec); //获取到计算器窗口的矩形坐标
   bmp := TBitmap.Create;
   try
     bmp.Width := rec.Right - rec.Left;
     bmp.Height := rec.Bottom - rec.Top;
     bmp.PixelFormat := pf24bit;
     PrintWindow(wnd, bmp.Canvas.Handle, 0);
     bmp.SaveToFile('test.bmp');
   finally
     bmp.Free;
  end;
end;
从这个例子,可以看出delphi的简练

posted @ 2010-08-23 17:21  devlyn  阅读(745)  评论(0编辑  收藏  举报