怎么根据后缀名取该类型文件的图标，并放到ImageList中呢？

Question

//参考
http://kingron.myetang.com/zsfunc0c.htmuses
  ShellApi;function GetSystemImageList(mImageList: TImageList): Boolean;
{ 返回系统图标到图形列表中是否成功 }
var
  vHandle: THandle;
  vSHFileInfo: TSHFileInfo;
begin
  FillChar(vSHFileInfo, SizeOf(vSHFileInfo), 0);
  vHandle := SHGetFileInfo('', 0, vSHFileInfo, SizeOf(vSHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  Result := vHandle <> 0;
  mImageList.Handle := vHandle;
  mImageList.ShareImages := True;
end; { GetSystemImageList }

Answer 1

这样只能提取几个图标。
如果我只是需要在ListView中显示文件，
它的图标为该文件类型的图标，但是该文件不一定存在，
怎么提取？
也就是说根据文件后缀名提取图标了。

Answer 2

自己建立一空的文件，文件扩展名自己指定。
比如：
with TMemoryStream.Create do
begin
  SaveToFile('c:\temp.扩展名');
  Free;
end;
然后提取图标

Answer 3

快结帐吧，人越多，得到的就越少。
结帐意见：taxi得99分，伴水得1分。

Answer 4

(zswang一看 游少爷 这样贪心，很快到旧箱子里翻了一遍，总算找到了一系列函数)uses Registry, ShellApi;function StrLeft(const mStr: string; mDelimiter: string): string;
begin
  Result := Copy(mStr, 1, Pos(mDelimiter, mStr) - 1);
end; { StrLeft }function ListValue(mList: string; mIndex: Integer; mDelimiter: string = ','): string;
var
  I, L, K: Integer;
begin
  L := Length(mList);
  I := Pos(mDelimiter, mList);
  K := 0;
  Result := '';
  while (I > 0) and (K <> mIndex) do begin
    mList := Copy(mList, I + Length(mDelimiter), L);
    I := Pos(mDelimiter, mList);
    Inc(K);
  end;
  if K = mIndex then Result := StrLeft(mList + mDelimiter, mDelimiter);
end; { ListValue }function SysPath: string;
var
  vBuffer: array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(vBuffer, MAX_PATH);
  Result := IncludeTrailingPathDelimiter(vBuffer);
end; { SysPath }function ZsFileIcon(mFileName: TFileName): HICON; { 返回文件的图标 }
var
  vRegistry: TRegistry;
  vExtension, vIconFileName: TFileName;
  vIconIndex: Integer;
  vExtDescription: string;
begin
//  Result := 0;
//  if not FileExists(mFileName) then Exit;  vRegistry := TRegistry.Create;
  try
    vExtension := UpperCase(ExtractFileExt(mFilename));
    if (vExtension = '.EXE') or (vExtension = '.ICO') then begin
      vIconFileName := mFilename;
      vIconIndex := 0;
    end else begin
      vRegistry.RootKey := HKEY_CLASSES_ROOT;
      if vRegistry.OpenKey(vExtension, False) then begin
        vExtDescription := vRegistry.ReadString('');
        vRegistry.OpenKey('\' + vExtDescription, False);
        vRegistry.OpenKey('DefaultIcon', False);
        vIconFileName := vRegistry.ReadString('');
        vIconIndex := StrToIntDef(ListValue(vIconFileName, 1, ','), 0);
        vIconFileName := ListValue(vIconFileName, 0, ',');
      end else begin
        vIconFileName := SysPath + 'Shell32.dll';
        vIconIndex := 0;
      end;
    end;
    Result := ExtractIcon(HInstance, PChar(vIconFileName), UINT(vIconIndex));
  finally
    vRegistry.Free;
  end;
end; { ZsFileIcon }procedure TForm1.Button1Click(Sender: TObject);
begin
  Icon.Handle := ZsFileIcon(Edit1.Text);
end;(复制完之后，随便把 游少爷 也关在箱子中)

Answer 5

ExtractIconEx() //这个函数可以分别取得大、小图标(早晨zswang把箱子打开，一看 游少爷 还没有醒，就用一枝二叉树枝捅捅他的鼻孔) “快醒醒，上班了！”

Answer 6

ExtractIconEx() //这个函数可以分别取得大、小图标(早晨zswang把箱子打开，一看 游少爷 还没有醒，就用一枝二叉树枝捅捅他的鼻孔) “快醒醒，上班了！”