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?