请问如何取得文件中的图标？

Question

你是要什么图标？ 如果是windows的图标：你试一试：
请先在Delphi环境下建立一个窗体Form1，并在Form1中添加一个按钮Button1和一个列表框ListView1；然后请设置ListView1的属性ViewStyle为vsIcon。 源程序清单： unit Unit1;interfaceuses
  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.