请教:(100分)

请问:如何用程序实现屏幕拷贝!

我的妈呀，查一下，一大堆

var
winHWND, hCur:integer;
winDC:integer;
rect:TRect;
pt:TPoint;
fBitmap:TBitmap;
begin
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.Assign(fBitmap);
fBitmap.Free;
end;

谢谢!