Standardicon für UNBEKANNTE Dateien...

[FriFra]

Wie bekomme ich das Standardicon welches am aktuellen System für unbekannte Dateien verwendet wird?
http://www.frifra.de/Temp/unknownfile.gif

[Luckie]

3.1 kannst du schon mal vergessen.

[FriFra]

Zitat von Luckie:

3.1 kannst du schon mal vergessen.

3.1 war ja auch nicht ganz ernst gemeint ... ich hatte nur gerade noch mein 3.1 auf VMware am laufen, da konnte ich mir das nicht verkneifen.
Ich will eben genau das Icon haben, welches in dem Fall am aktuellen System angezeigt wird.

[ErazerZ]

ist in shell32.dll gespeichert als name: 1
vielleicht sowas wie
hIcon := ExtractIcon(hInstance, 'shell32.dll', 1);

[bigg]

moin,

mit dieser Funktion erhälst du das Handle kleiner Icons.
Dann könntest du über Icon.Handle darauf zugreifen oder gleich in eine ImageList kopieren.

Delphi-Quellcode:

uses ShellAPI;

function GetFileIcon(const FileName: String): Cardinal;
var FileInfo: TSHFileInfo;
begin
if SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
SHGFI_SMALLICON or SHGFI_OPENICON or SHGFI_ICON or SHGFI_SYSICONINDEX) <> 0 then
Result := FileInfo.hIcon else
Result := 0;

end;

[Luckie]

Und was soll er als Filename angeben? Woher soll erwissen, welcher Dateityp mit keiner Anwendung verknüpft ist?

[FriFra]

Zitat von Luckie:

Und was soll er als Filename angeben? Woher soll erwissen, welcher Dateityp mit keiner Anwendung verknüpft ist?

Genau... ich könnte natürlich "dlkjlkj.poidwodkldm" angeben Aber das bettr. Icon scheint bei allen gängigen Windows Versionen tatsächlich das erste aus der Shell32.dll zu sein. Das Icon kann ich natürlich auslesen, aber eine saubere Lösung ist das nicht, aber warscheinlich die einzige

[Luckie]

Eigentlich müsste es irgendwo in der Registry stehen bei den Dateitypen, da ist ja auch immer das Icon angegeben.

[Olli]

Zitat von Luckie:

Eigentlich müsste es irgendwo in der Registry stehen bei den Dateitypen, da ist ja auch immer das Icon angegeben.

Irrtum, leider nicht immer
HKCR\Unknown oder HKCR\* sollten zuständig sein. Bei mir (auf W2K) gibt es in beiden keine Iconeinträge. Ich schau nochmal kurz in die Explorer.exe (habe aber nur die von XP hier).

[bigg]

Ruf doch einfach CreateFile auf, leg eine Datei ins temporäre Verzeichnis ab und ruf anschließend
meine Funktion auf.