如何编程实现抓图时过滤掉鼠标图象!!!!!!!!!!!!(100分)

我想做一个抓图程序 但抓的图总是有鼠标图象！ 如何能实现抓图而又没有鼠标图象呢？？
请赐教！！！！！

主意有可是我也没做过,先拦截鼠标事件隐藏鼠标,然后抓图简单吧
具体怎么做看别人的了呵呵呵呵

procedure ShowErrorMessage(Error:integer);
var
ErrorStrChar;
begin
ErrorStr:=nil;
FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
nil,
Error,
0,
ErrorStr,
0,
nil
);
if ErrorStr<>nil then ShowMessage(ErrorStr);
end;
procedure GetSelectRectangle(DC:hDC;RC:TRect;var Bmp:TBitmap);
var
SelWidth,SelHeight:integer;
ErrorCode:integer;
begin

SelWidth:=RC.Right-RC.Left;
SelHeight:=RC.Bottom-RC.Top;
Bmp.Width:=Abs(SelWidth);
Bmp.Height:=Abs(SelHeight);
if not StretchBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,DC,RC.Left,RC.Top,SelWidth,SelHeight,SRCCOPY) then begin
ErrorCode:=GetLastError;
ShowErrorMessage(ErrorCode);
end;
end;
GetSelectRectangle抓取就没有.
不知大虾是否能够公开抓去总是有光笔的函数

接受答案了.

接受答案了.