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:

Zitat von Luckie

3.1 kannst du schon mal vergessen. ;)

3.1 war ja auch nicht ganz ernst gemeint :lol: ... 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:

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 :lol: 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:

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.

[Dani]

Zitat:

Zitat von Luckie

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

Ein Dateiname ohne Dateierweiterung müsste gehen.

[Luckie]

Und wenn Dateien ohne Erweiterung zufälligerweise mit einer Anwendung verknüpft sind und so das Anwendungsicon bekommen?

[jfheins]

Zitat:

Zitat von Luckie

Und wenn Dateien ohne Erweiterung zufälligerweise mit einer Anwendung verknüpft sind

Geht das ?

(Wenn ja, wie? Ich würde gerne alles unbekannte mit Notepad öffnen ...)

[bigg]

Zitat:

Irrtum, leider nicht immer Neutral
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).

Wobei wir dann wissen, dass das Icon nicht definiert wäre und somit das Icon aus der Shell
verwenden könnten.

[Olli]

Die Suche im Explorer hat leider nix ergeben, außer der Tatsache, daß dieser eine Imagelist aus Shell32 zu bekommen scheint ... und das war dann auch der Hinweis:

Im PSDK steht unter SHGetFileInfo():

Note Once you have a handle to a system image list, you can use the Image List API to manipulate it like any other image list. Because system image lists are created on a per-process basis, you should treat them as read-only objects. Writing to a system image list may overwrite or delete one of the system images, making it unavailable or incorrect for the remainder of the process.

Was lernen wir daraus? Richtig, es gibt eine "System Image List" (genaugenommen mindestens eine!).

Den "Namen" einer undokumentierten Funktion, welche nur über ihre Ordinal exportiert wird, Shell_GetImageLists() bekommen wir durch Vermutungen und Suche im PSDK ... wie wo watt? Ich kann hier einfach den Funktionsnamen angeben und außerdem verlinke ich MSDN?! Korrekt. Dank der Prozesse gegen MS haben die ja bekanntlich in den letzten Jahren einige Funktionen offengelegt.

Angeblich gibt es die erst ab XP, aber andere wissen da besseres zu berichten. Diese Funktion existiert bereits in Windows 95. Mit etwas weiterer Suche im PSDK finden wir dann ein Interface [msdn]IShellIcon::GetIconOf[/msdn], welches uns weitere Auskunft erteilt (nämlich zu den Indeces der Icons):

Zitat:

Address of the index of the icon in the system image list. The following standard image list indexes can be returned.

• 0 Document (blank page, not associated)
• 1 Document (with data on the page)
• 2 Application (file extension must be .exe, .com, or .bat)
• 3 Folder (plain)
• 4 Folder (open)

Prinzipiell sollte damit die Frage geklärt sein. Die entsprechende Funktion dynamisch zu importieren solltest du ja draufhaben, FriFra. Ob man diese von Catch22 (der übrigens ein ähnliches, aber besseres, Tool wie EDA geschrieben hat) genannte Funktion FileIconInit() auf NT wirklich braucht, müßtest du dann selber austesten.

Hoppala, bei der nachträglichen Suche nach Shell_GetImageLists Delphi kam nur ein einziger Treffer raus ... aber der hat's in sich. Wäre fast wert einen Hinweis darauf in die Codelib aufzunehmen:
http://www.whirlingdervishes.com/nse...les/source.php

[bigg]

Zitat:

Hoppala, bei der nachträglichen Suche nach Suche mit GoogleShell_GetImageLists Delphi kam nur ein einziger Treffer raus ... aber der hat's in sich. Wäre fast wert einen Hinweis darauf in die Codelib aufzunehmen:
http://www.whirlingdervishes.com/nse...les/source.php

Aber nur fast :mrgreen: