本文整理自网络，侵删。
delphi抓屏代码
procedure TForm1.Button1Click(Sender: TObject);
var winHWND, hCur:integer;
winDC:integer;
rect:TRect;
//AFormat : Word;
//AData,APalette : THandle;
pt:TPoint;
fBitmap:TBitmap;
timer11:Integer;
begin
timer11:=GetTickCount;
hCur := GetCursor(); // 获 得 光 标 句 柄
GetCursorPos(pt); // 记 录 光 标 位 置
winHWND := GetDesktopWindow();
winDC := GetDC(winHWND);
GetWindowRect(winHWND, rect);
fBitmap := TBitmap.create;
fBitmap.width := rect.right-rect.left;
fBitmap.height := rect.bottom-rect.top;
BitBlt(fBitmap.canvas.handle, 0, 0, fBitmap.width, fBitmap.height, winDC, 0, 0, SRCCOPY);
DrawIcon(fBitmap.canvas.handle, pt.x, pt.y, hCur); // 画 光 标
ReleaseDC(winHWND, winDC);
Image1.Picture.Bitmap:= fBitmap;
fBitmap.Free;
Caption:=inttostr( GetTickCount-timer11);
end; 相关阅读 >>
Delphi base64, quoted-printable 的解码与编码函数
Delphi 测试字符串写入类: tstringwriter
Delphi xe5 android 使用system.zip单元释放资源文件
更多相关阅读请进入《Delphi》频道 >>
