System-Icons in Delphi anzeigen
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:
Aber das funktioniert nur, wenn man eine explizite Datei angeben kann.
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; Wie macht man das, wenn man generell das Icon für z.B. WAV-Dateien anzeigen will? |
Re: System-Icons in Delphi anzeigen
Verwende FILE_ATTRIBUTE_NORMAL im Attribute-Parameter und SHGFI_USEFILEATTRIBUTES im Flags-Parameter (siehe Icon/Text zu Dateierweiterung auslesen).
jkr |
Re: System-Icons in Delphi anzeigen
|
Re: System-Icons in Delphi anzeigen
Tausend Dank! Funktioniert einwandfrei!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz