在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow'; procedure TForm1.btn1Click(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; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论