Icon anhand der Extension ermitteln?

[MathiasSimmack]

Zitat von Kedariodakon:

Dabei werden zur Hilfe Dummy-Dateien erstellt...

Zumindest für SHGetFileInfo brauchst du keine Dummydatei:

Delphi-Quellcode:

SHGetFileInfo('gibtsnicht.txt',
  FILE_ATTRIBUTE_NORMAL,
  fi, sizeof(fi),                  // fi  = TSHFileInfo-Variable
  ... or SHGFI_USEFILEATTRIBUTES); // ... = die anderen Flags

Und für FindExecutable könntest du mit Hilfe von GetTempPath eine leere Datei des gewünschten Typs im Temp-Ordner erstellen und dann später wieder entfernen.