桌面截图DLL,函源码 已找出出错的原因了 是忘记释放了 修改方法: var ABM: TBitmap; begin ABM := TBitmap.Create; try ABM := getdeskbmp; image1.Picture.Bitmap := ABM; image1.Width:=ABM.Width; image1.Height:=ABM.Height; finally FreeAndNil(ABM); end; end;