J
jame
Unregistered / Unconfirmed
GUEST, unregistred user!
下面是我寻找某个文件图标的程序,但是运行后出现好多问题:<br>1.windows全部图标消失了<br>2.取得的图标不是windows显示的图标<br>谁能给我一个详细的例子说明如何去的一个文件名字已知的图标?<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> fn:string;<br> SFi:TSHFILEINFO;<br> HIMG:hicon;<br>begin<br> fn := Fr.FileName;<br> IL.Clear; <br> IL.handle :=ShGetFileInfo(<br> pchar('.htm'),<br> //Pchar(fn),<br> //'C:',<br> 0,<br> SFi,<br> SizeOf(SFI),<br> SHGFI_SYSICONINDEX or SHGFI_LARGEICON );<br> LV.Items.Clear;<br> With lv.items.add do<br> begin<br> caption := fn;<br> imageindex := 0; <br> end;<br> IL.free;<br>end;