请问如何取得各种文件类型对应的图标

Question

我要用列表控件来显示文件，但只显示文件名太单调了，最好还显示一下文件对应的图标。
有什么函数可以取得某一个文件对应的图标。

Answer 1

我记得delphi好像有一个例程好象叫ResXplor

Answer 2

我的意思是：当你随便打开D盘后肯定会看见许多文件，每种文件类型都有一个图标显示，我要得到这个图标，而不是用ExtractIcon.

Answer 3

function GetFileIcon(const Filename: string; SmallIcon: Boolean): HICON;
var
  info: TSHFILEINFO;
  Flag: Integer;
begin
  if SmallIcon then
    Flag := (SHGFI_SMALLICON or SHGFI_ICON)
  else
    Flag := (SHGFI_LARGEICON or SHGFI_ICON);
  SHGetFileInfo(Pchar(Filename), 0, info, Sizeof(info), Flag);
  Result := info.hIcon;
end;
//=========================================================
  Icon := TIcon.Create;
  try
    Icon.Handle := GetFileIcon(New, False);
    Big.AddIcon(Icon);
  finally
    Icon.Free;
    Icon := nil;
  end;