大神帮我看看这段代码问题所在吧,万分感激...在线等哟.....

怎么和企鹅的差别那么大?
[解决办法]
把getdc换成getwindowdc试试。
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
jb1:HWND;
bmp:TBitmap;
wnd: cardinal;
rec: TRect;
BmpCanvas:TCanvas;
begin
jb1:=FindWindow(nil,'计算器');
wnd:=jb1;
GetWindowRect(wnd, rec);
bmp := TBitmap.Create;
bmp.Width :=rec.Right - rec.Left;
bmp.Height :=rec.Bottom - rec.Top;
bmp.PixelFormat := pf24bit;
BmpCanvas:=TCanvas.Create;
BmpCanvas.Handle:=getwindowdc(jb1);
Bmp.Canvas.CopyRect(Rect(0,0,bmp.Width,bmp.Height),BmpCanvas,Rect(0,0,bmp.Width,bmp.Height));
Image1.Picture.Assign(bmp);
//bmp.SaveToFile('C:\1.bmp');
bmp.Free;
BmpCanvas.Free;
end;