如何提取应用程序的小图标？

Question

shGetFileInfo用于取文件的图标，取驱动器的图标可以用这个函数吗？

Answer 1

至于显示到Image中，很简单：Image.Picture.Icon.handle:=FileInfo.hIcon即可。

Answer 2

我得网站有一个例子，你可以去看看
mantousoft.51.net

Answer 3

很简单：TImage.Picture.Icon.Handle := You Icon Handleto Kingron:
  shGetFileInfo可以用来提取任何系统图标，不仅仅包含驱动器图标。

Answer 4

在http://personal.hb.cninfo.net/~gbh上有提图标(exe、dll)的程序allicon.exe,保你喜欢。

Answer 5

To 各位：
   我早试过 TImage.Picture.Icon.Handle := FileInfo.hIcon;  但不知怎么回事，不行……

Answer 6

我的一个程序中的代码，你自己看看吧，我的没有问题，可以正常使用啊：
  fn:='c:\temp'+FileClassLV.Selected.Caption;
  assignfile(fh,fn);
  rewrite(fh);
  closefile(fh);
  SHGetFileInfo(pchar(fn),0,info,sizeof(info),SHGFI_ICON+SHGFI_LARGEICON);//用SamllIcon也可以
  FileTyptIcon.Picture.Icon.Handle:=info.hIcon;

Answer 7

delphi的demo目录下有一个例子叫ex什么的