根据一个字符串(如“aaa.doc”)获得windows内与之相对应的图标的问题！超级疑难，非高手莫入！ (200分)

chemstar · 2002-05-15

我根据一个字符串如‘aaa.doc’(这个文件并不实际存在)，通过调用函数 来取得doc文件在系统内的图标索引，进而显示在一个listview内,用了如下的代码： 　请新建一个项目，在form上放一个button和一个listview，并设其viewstyle为vssmallicon ，然后用以下代码替掉原来的所有代码： 　unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ShellAPI, ExtCtrls, ImgList; type   TForm1 = class(TForm)     Button1: TButton;     ListView1: TListView;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);  private     { Private declarations }   public     { Public declarations }   end; var Form1: TForm1; implementation {$R *.DFM} function GetFileIconIndex(FileName: string; Large: Boolean): Integer;  { 获取图标的序号函数 } var   Ext: string;   Flags: Integer;   FileInfo: TSHFILEINFO; begin   Ext := FileName;   Flags := SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES;   if Large then     Flags := Flags or SHGFI_LARGEICON   else     Flags := Flags or SHGFI_SMALLICON;   SHGetFileInfo(PChar(Ext), 0, FileInfo, SizeOf(FileInfo), Flags);   Result := FileInfo.iIcon; end; procedure TForm1.FormCreate(Sender: TObject); var  shFileInfo: TSHFILEINFO; begin  with ListView1 do   { 分配系统资源给ListView1组件以显示图标 } begin SmallImages:=TImageList.CreateSize(32,32); SmallImages.ShareImages:=True; SmallImages.Handle:=ShGetFileInfo('*.*',0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX); LargeImages:=TImageList.CreateSize(32,32); LargeImages.ShareImages:=True; LargeImages.Handle:=ShGetFileInfo('*.*',0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX); end; end; procedure TForm1.Button1Click(Sender: TObject); var   listitem:tlistitem; begin   ListItem:=ListView1.Items.Add;    ListItem.ImageIndex:=GetFileIconIndex('aaa.doc',false) ; end; end. 程序运行后单击会在listview内显示一个word的图标，但是我在win98下运行很正常，在win2000下却什么 也显示不出来！请高手看看是怎么回事！是不是98和2000的函数不一样？

土土 · 2002-05-15

http://delphi.mychangshu.com/ 这里现成的就有

dmg · 2002-05-15

我有东东，要的话我可以发给你

ty_unix · 2002-05-15

俺也有，要的话，发信到我的信箱里面 ty_unix@163.com

xjlg · 2002-05-15

在网上找吧

张无忌 · 2002-05-15

可以用很多工具从dll、exe、ocx中搞到很多图标！ 比如EXESCOPE

chemstar · 2002-05-15

我是想如何给我的treeview中的各种文件名称换成它们在windows中相应的默认的图标？ 又如何将这些图标存入一个文件中呢？ 谁有源码？发给我！ mxmu@sina.com

张无忌 · 2002-06-13

这个要你自己读系统的注册表，非常麻烦

peng_qs · 2002-06-13

没错,你需要根据注册表自己去读取. 先找出扩展名,比如DOC,然后 比如: *.DOC类型,你先要找到注册表HKEY_CLASS_ROOT中 .DOC这个KEY中DEFAULT值 WORD.DOCUMENT.8,然后再在WORD.DOCUMENT.8这个KEY下找有一项DEFAULTICON, 它指定了该类型的缺省默认图标.

book523 · 2002-06-13

---- 下面是演示程序 ---- 该演示程序可以显示各类Windows系统图标，包括文件图标、磁盘图标、文件夹图标、用户特定可执行文件图标（如：Delphi的火炬图标等等）。有趣的是，我们显示的这些图标没有一个需要我们自己亲自动手绘制。 ---- 请先在Delphi环境下建立一个窗体Form1，并在Form1中添加一个按钮Button1和一个列表框ListView1；然后请设置ListView1的属性ViewStyle为vsIcon。 ---- 源程序清单： unit Unit1; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,StdCtrls,ShellAPI,ExtCtrls, ImgList; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; const Test='C:/'; { Test为测试数据，在本例中返回的是一个驱动器图标。读者 可以自行选择其他测试数据如：Test:='C:/Autoexec.bat' 等等。} var Form1: TForm1; ShFileInfo: TSHFILEINFO; implementation {$R *.DFM} function GetFileIconIndex(FileName:string):integer; { 获取图标的序号函数 } var Ext:String; begin Ext:=FileName; Result:=ShGetFileInfo(Pchar(Ext),0,SHFileInfo,SizeOf(SHFileInfo),SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME); Result:=SHFileInfo.iIcon; { 返回获取的图标序号 } end; procedure TForm1.FormCreate(Sender: TObject); begin with ListView1 do begin SmallImages:=TImageList.CreateSize(32,32); SmallImages.ShareImages:=True SmallImages.Handle:=ShGetFileInfo('*.*',0,SHFileInfo,SizeOf(SHFileInfo),                      SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX); LargeImages:=TImageList.CreateSize(32,32); LargeImages.ShareImages:=True; LargeImages.Handle:=ShGetFileInfo('*.*',0,SHFileInfo,SizeOf(SHFileInfo),                         SHGFI_LARGEICON or SHGFI_ICON or SHGFI_SYSICONINDEX); end; { 分配系统资源给ListView1组件以显示图标 } end; procedure TForm1.FormDestroy(Sender: TObject); begin ListView1.SmallImages.Free; ListView1.LargeImages.Free; { 释放ListView1占用的系统资源 } end; procedure TForm1.Button1Click(Sender: TObject); begin ListView1.Items.Item[0].ImageIndex:=GetFileIconIndex(Test); { 为ListView1中的第一个项目绘制图标 } end; end.

wql · 2002-06-13

获取图标容易，但是要保存为256色以上的就困难了！ 谁能给出保存为256色以上的图标到.ICO文件的代码，我出150分，绝不失言。 email:   wqlem@km169.net

chemstar · 2002-06-13

book523兄： 　　　　你给出的这段代蚂好像运行不能通过呀。而且我是要取得某“种”文件的图标， 而不是某“个”文件的图标。最终的函数应是这样的，比如要想取得doc文件的图标，就用这 样的函数：GetFileIcon（"DOC"）。 　　极盼回应。 peng_qs兄： 　　你只给出了到注册表中找出对应的图标名称，但是它的图标并不保存在这里呀。 最好也教给我怎样将取得的图标动态的保存在某个文件里面，比如：dll里面。就是 数据库也行呀。 　　不要笑话我菜呀。

peng_qs · 2002-06-13

再用API函数ExtractIcon就可以取得啊.

weel · 2002-06-13

图标提取程序的源代码： http://www.kitoosoft.com/download/soft.asp?id=26

antic_ant · 2002-07-07

我的朋友kinee写了一个， antic_ant.delphibbs.com是有连接，他提供源码的

chemstar · 2002-12-16

这个问题好长时间了，但总是没有人能解决，真是有点失望了。大家似乎总是误解我的意思。 我的意思是这样的（再说一遍）： 　我是要取得某“种”文件的图标，而不是某“个”文件的图标。最终的函数应是这样的， 比如要想取得doc文件的图标，就用类似这样的函数：GetFileIcon（"DOC"）。 有谁能帮我，我可以多送分。

沈浪 · 2002-12-17

我爱PASCAL · 2002-12-17

我这个函数完全满足你的要求： function GetFileIcon(const DocFileNameExt: string): string; var FileClass: string; Reg: TRegistry; begin Result := ''; Reg := TRegistry.Create(KEY_EXECUTE); Reg.RootKey := HKEY_CLASSES_ROOT; FileClass := ''; if Reg.OpenKeyReadOnly(DocFileNameExt) then begin FileClass := Reg.ReadString(''); Reg.CloseKey; end; if FileClass <> '' then begin if Reg.OpenKeyReadOnly(FileClass + '/Shell/DefaultIcon') then begin Result := Reg.ReadString(''); Reg.CloseKey; end; end; Reg.Free; end;

我爱PASCAL · 2002-12-17

这个函数得到的是对应的图标路径或应用程序路径： 如realplay的 c:/program files/real/realplayer/realplayer.exe,1 表示该应用程序的第一个图标，然后再用以上朋友说的ExtractIcon函数提取图标， 如果是直接指明路径的，如 c:/program files/real/realplayer/realicon.ico 就不用提取了。

chemstar · 2002-12-17

感谢“我爱PASCAL”兄大力协助，但仍有几点不明： 1、以rm文件为例，只要装了realplayer,所有的扩展名为rm的文件都会变为 realplayer的图标（如果建立了关联的话），但这时即使将realplayer删掉（不是卸掉）， rm文件的图标仍然不会改掉，这说明资源管理器并不是每次启动都从realpalyer里面读取的， 而是在第一次安装时就已经将它的图标保存在一个地方了。我的问题是：这个地方在哪里， 我又该如何从这个地方找到我所需要的图标。 2、如果有两种程序都能打开rm文件，比如：realplayer和超级解霸。如果realplayer装的 晚的话，那么rm文件的图标应该为realplayer的，但这时若将realplayer卸掉，这时rm文件 的图标会自动改为“超解”的图标（当然关联也改了）。当然，如果windows内没有安装可 以打开rm文件的程序，这时rm的图标会变为windows的默认文件图标。这说明rm文件的关联 情况在系统内是有好几个选择的，这种选择记录在哪里呢？windows的默认图标又存在哪里呢？ 以上两点不明，极盼给予解答，当以高分相报！！还可另多送分！

根据一个字符串(如“aaa.doc”)获得windows内与之相对应的图标的问题！超级疑难，非高手莫入！ (200分)

chemstar

Unregistered / Unconfirmed

土土

Unregistered / Unconfirmed

dmg

Unregistered / Unconfirmed

ty_unix

Unregistered / Unconfirmed

xjlg

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

peng_qs

Unregistered / Unconfirmed

book523

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

peng_qs

Unregistered / Unconfirmed

weel

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

沈浪

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

Similar threads