现在是GDI+无法无失真的读取ICO文件,如果可以那问题就解决了! 获取真彩ICO很容易啊!下面就可以! var finfo: _SHFILEINFO; ico :TIcon; begin SHGetFileInfo(pchar('C:\tmp.exe') ,0,finfo,sizeof(finfo),SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX); ico:=ticon.Create; ico.Handle:=finfo.hIcon; ico.SaveToFile('c:\32位真彩.ico'); ico.Free;
获取真彩ICO很容易啊!下面就可以!
var
finfo: _SHFILEINFO;
ico :TIcon;
begin
SHGetFileInfo(pchar('C:\tmp.exe')
,0,finfo,sizeof(finfo),SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX);
ico:=ticon.Create;
ico.Handle:=finfo.hIcon;
ico.SaveToFile('c:\32位真彩.ico');
ico.Free;