Q
qixia
Unregistered / Unconfirmed
GUEST, unregistred user!
要提取EXE文件中的图标,请看以下过程 :<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ic:ticon;<br>begin<br> ic:=ticon.Create ;<br> ic.Handle :=extracticon(hinstance,'c:/windows/desktop/d.exe',0);<br> drawicon(form1.Canvas.Handle,50,50,ic.handle);<br> ic.SaveToFile('c:/windows/desktop/aaa.ico');<br> ic.Free ;<br>end;<br>其中 d.exe 中有一个2238字节的颜色鲜艳的图标,<br>而输出的aaa.ico却只有667字节,而且颜色很难看。<br><br>请教各位大虾,如何才能得到与源文件的大小相同,<br>颜色数相同的图标?