Icon anhand der Extension ermitteln?

[Kedariodakon]

Gibt es eine Möglichkeit die Icons von registrierten Extensions zu bekommen?
Mal angenommen ich habe nur den Namen: "Film.mpg"
Kann ich nun irgendwie das Icon rausbekommen und ev. auch das Programm mit welchem es gestartet werden müßte und mit welchen Parametern?

Wäre toll wenn jemand einen Ansatzpunkt kennt óò

Bye

[MathiasSimmack]

SHGetFileInfo

[Kedariodakon]

Naja nicht ganz, Problem: Ich habe die Datei ja nicht, nur den Namen...

Bye

[MathiasSimmack]

Ist kein Problem. Guck dir mal die Parameter an. Bei einem kannst du Attribute angeben, so dass du bspw auch mit ".mp3" als Namen Erfolg hast

[Kedariodakon]

Ok scheind wohl doch zu gehen

Werd es mal Testen

Frage wär aber noch, wie ich das Programm ermittle, mitwelchem die Dateien gestertet werden...


Bye

[Rastaman]

Aus der Registry in HKEY_CLASSES_ROOT vielleicht

[Kedariodakon]

Zitat von Gerrit89:

Aus der Registry in HKEY_CLASSES_ROOT vielleicht

Hmm die ".*" Referenzieren wohl mit den Standardschlüselwert auf HKEY_CLASSES_ROOT\"Standardschlüselwert" und weiter dann auf HKEY_CLASSES_ROOT\"Standardschlüselwert"\DefaultIc on zum Icon + Index bzw. auf das Programm zum öffnen, neu erstellen und sowas...

Kann ich den davon ausgehen das alles was da mit nen "." Beginnt auch eine registrierte Extension ist?

Dann gibts auch welche welche so heißen: ".BMP;*.GIF;*.JPG;*.JPEG;*.PCX;*.TIF;*.TIFF;*. FPX"

Aber bei manchen ist ein PersistentHandler mit einer CLSID angegeben... Und die is bei sehr vielen gleich
Oh man das hört sich schon alles nach Interfaces an

Bye

[Luckie]

Zitat von Kedariodakon:

Frage wär aber noch, wie ich das Programm ermittle, mitwelchem die Dateien gestertet werden...

Auch dazu gibt es eine API Funktion. Mir fällt sie nur gerade nicht ein.

[Kedariodakon]

Ok habe mir ein paar VB sachen angeschaut...
Die Registrierten Icons bekommen sie, indem sie "HKEY_CLASSES_ROOT" durchsuchen, das Icon mit der Api-Funktion SHGetFileInfo und das Programm zum ausführen mit der Api-Funktion FindExecutable...

Dabei werden zur Hilfe Dummy-Dateien erstellt...

Und wie editiert man die, außer über Windows?

Bye

[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.