请问，我怎样才能得到一个文件相对应的图标和类型

Question

文件类型在注册表里有。
得到图标：uses ShellApi;procedure TForm1.GetFileIcon(const FileName: string);
var
  SHFileInfo: TSHFileInfo;
  SmallIcon, LargeIcon: TIcon;
begin  
  SmallIcon := TIcon.Create;
  LargeIcon := TIcon.Create;  //得到文件的大图标
  SHGetFileInfo(PChar(FileName), 0, SHFileInfo, SizeOf(SHFileInfo),
    SHGFI_ICON or SHGFI_LARGEICON);
  LargeIcon.Handle := SHFileInfo.hIcon;
  LargeIconImageList.AddIcon(LargeIcon);  //得到文件的小图标
  SHGetFileInfo(PChar(FileName), 0, SHFileInfo, SizeOf(SHFileInfo),
        SHGFI_ICON or SHGFI_SMALLICON);
  SmallIcon.Handle := SHFileInfo.hIcon;
  SmallIconImageList.AddIcon(SmallIcon);
end;

Answer 1

//得到文件类型
uses Registry;function GetFileType(const AExt: string): string;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    if reg.OpenKey(AExt, False) then
      Result := reg.ReadString('');
  finally
    reg.Free;
  end;
end;

Answer 2

...\delphi5\demos\Virtual Listview\virtuallistview.dpr
这是一个完整的例子.     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

Answer 3

...\Delphi5\Demos\Virtual Listview\virtuallistview.dpr
这是一个完整的例子.
     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

Answer 4

plainsong(轻风) 你好
我知道有这个例子，可是我看不懂，想把它搬移过来，可怎么移都出错
你能告诉我原理吗，或则哪位大虾能帮我解释一下，我会在投资分的

Answer 5

谁能解释一下delphi5自带的virtuallistview.dpr中，到底哪段代码实现了各种图标对应各种文件并且显示在listbox里面，我怎么取不出来这段代码