如何获取光盘图标?(100分)

  • 主题发起人 主题发起人 MAGXJ500T
  • 开始时间 开始时间
M

MAGXJ500T

Unregistered / Unconfirmed
GUEST, unregistred user!
光盘上有Auturun则一般都会指定图标<br><br>如何获取这个图标呢?<br><br>请排除解析Aoturun.inf的方法
 
不就是读取指定文件的图标么,论坛里很多这样的帖子。<br>function TForm1.GetfIcon(const fName: String;<br>&nbsp; var ImgList: TImageList): Boolean;<br>VAr Info: TSHFILEINFO;<br>Flag:Integer;Icon:Ticon;<br>begin<br>&nbsp; Result := False;<br>&nbsp; Icon:=Ticon.Create;<br>&nbsp; Flag:=(SHGFI_LARGEICON or SHGFI_ICON); &nbsp; &nbsp;//大图标<br>&nbsp; try<br>&nbsp; &nbsp; SHGetFileInfo(Pchar(fName),0,info,Sizeof(info),Flag);<br>&nbsp; &nbsp; Icon.Handle :=info.hIcon;<br>&nbsp; &nbsp; ImgList.AddIcon(Icon); //随便<br>&nbsp; &nbsp; Result := True;<br>&nbsp; Finally Icon.Free; end;<br>end;<br>Uses ShObj;
 
呵呵,是啊,刚才我也自己搞定了,SHGetFileInfo可以直接给定路径的。<br>
 
不行。自动运行图标就是通过inf指定的。所以你的要求是mission impossible
 
to firstrose<br><br>SHGetFileInfo(Pchar(光盘根目录),0,info,Sizeof(info),Flag);<br><br>完全可以的
 
另外,dmzn朋友收到分了吗?<br><br>我不小心结帖了,不知道积分是否分配了。<br><br>如果没有收到请说一声,我另外开一个帖子吧分给你!
 

Similar threads

回复
0
查看
878
不得闲
D
回复
0
查看
757
DelphiTeacher的专栏
D
D
回复
0
查看
731
DelphiTeacher的专栏
D
D
回复
0
查看
686
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部