各位大佬，有谁知道如何提取exe文件的真彩色图标用extracticon提取是色彩失真。(30分)

用
procedure TForm1.Button5Click(Sender: TObject);
var
Ico:Ticon;
Bmp: TBitmap;

begin
Ico:=TIcon.Create;

Bmp:=TBitmap.Create;
try

Ico.Handle:=ExtractIcon(Handle,PChar('d:/qianlong/jd/jd.exe'),0);
Bmp.PixelFormat:=pf24bit;
Bmp.Width:=Ico.Width;
Bmp.Height:=Ico.Height;
Bmp.Canvas.Draw(0,0,Ico);
image1.Picture.Assign(bmp);
finally
Ico.Free;
Bmp.Free;
end;
end;


显示色彩失真，倾家荡产，有谁能解救我呀！！！！！

qq:171833017,www.ysza.com
免费资源里,图标处理程序,有问题可直接联系我