大神帮小弟我看看这段代码有关问题所在吧,万分感激.哟.

大神帮我看看这段代码问题所在吧,万分感激...在线等哟.....
  
怎么和企鹅的差别那么大?
[解决办法]
把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;