System-Icons in Delphi anzeigen

[sundance]

Hallo,

ich möchte gerne in einem Programm Icons anzeigen, und zwar diejenigen, die im System für den jeweiligen Dateityp registriert ist. Jetzt habe ich hier folgende Funktion gefunden:

Delphi-Quellcode:

function GetShellIcon(const Name:String; const Large, Open:Boolean):HIcon;
   var FileInfo:TSHFileInfo;
       Flags:Integer;
begin
   ZeroMemory(@FileInfo, SizeOf(FileInfo));
   Flags:=SHGFI_ICON;
   If Open then Flags:=Flags or SHGFI_OPENICON;
   If Large then Flags:=Flags or SHGFI_LARGEICON else
      Flags:=Flags or SHGFI_SMALLICON;

   SHGetFileInfo(PChar(Name), 0, FileInfo, SizeOf(FileInfo), Flags);
   Result:=FileInfo.hIcon;
end;

Aber das funktioniert nur, wenn man eine explizite Datei angeben kann.
Wie macht man das, wenn man generell das Icon für z.B. WAV-Dateien anzeigen will?

[jottkaerr]

Verwende FILE_ATTRIBUTE_NORMAL im Attribute-Parameter und SHGFI_USEFILEATTRIBUTES im Flags-Parameter (siehe Icon/Text zu Dateierweiterung auslesen).

jkr

[_frank_]

du suchst extractassociatedicon bzw. extractassociatedicon?

HTH Frank

[sundance]

Tausend Dank! Funktioniert einwandfrei!