给分如此少 真抠门 function ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer):TBitmap;function ScreenCap(LeftPos, TopPos, RightPos, BottomPos: integer): TBitmap;var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; // Bitmap:TBitmap; myjpeg:tjpegimage;begin RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); DestDC:=CreateCompatibleDC(SourceDC); Bhandle:=CreateCompatibleBitmap(SourceDC,RectWidth,RectHeight); SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,LeftPos,TopPos,SRCCOPY); result:=TBitmap.Create; result.Handle:=BHandle; DeleteDC(DestDC); ReleaseDC(Bhandle,SourceDC);end;