Icon - Symbol von Dateityp ermitteln (Speicherort)

[-Lucky-]

Ich möchte in TListView das Symbol der entsprechenden Datei angezeigt haben. Damit das geht, muss ich wissen, wo ich das Icon (Symbol) auf der Festplatte finde. Wenn ich z.B. eine *.txt Datei habe, dann möchte ich das Symbol für die Textdatei laden. Dies soll für alle Dateitypen möglich sein. Ich habe schon versucht den Speicherort über die Registry heraus zu bekommen, das funktioniert aber nicht, hab alles durchsucht, nix gefunden :(

Dann bin ich auf die Idee gekommen Im Arbeitsplat bei Ordneroptionen -> Dateitypen zu gucken. Dort fand ich z.B. bei TXT Dateien heraus, dass das Symbol hier gespeichert ist: C:\WINDOWS\system32\shell32.dll Aber das wusste ich auch schon vorher.

Wenn man über Ordneroptionen das entsprechende Icon abfragen kann, dann muss man das doch auch irgendwie mit Delphi können. In meiner TListView soll halt das entsprechende Icon angezeigt werden.


Weiß das jemand zufällig, wie man das raus bekommt? :gruebel:

[Luckie]

Da gibt es eine API-Funktion für. Ich vergesse nur immer welche, weil ich sie nie brauche. Aber du bist nicht der erst, der das machen will.

[lbccaleb]

ich habe mal vor einiger zeit den dialog für dateieigenschaften von win nachprogrammiert, da brauchte ich das auch, und ja ich habs geschafft über die registry, du musst nur immer den verlauf nachverfolgen!! bsp txt datei..

1. .txt im pfad "HKEY_CLASSES_ROOT\.txt" den wert standart auslesen, das ist (im normal fall wenn nichts geändert worden ist) "txtfile"

2. diesen wert wieder nachverfolgen im pfad "HKEY_CLASSES_ROOT\txtfile"

3.unter dem pfad ""HKEY_CLASSES_ROOT\txtfile\defaulticon"

dort ist der pfad zum icon vom arbeitsplatz/explorer gespeichert
diesen musst du dann zerlegen und thats it

anmerkung:
bei vista währe es für die txtdateien:

"%SystemRoot%\system32\imageres.dll,-102"

befindet sich also in der dll imagesres an platz 102....

so hab ich es gemacht und das ging...



bei exe dateien kannst natürlich auch den pfad auslesen und dann per apitool das icon auslesen...
danach einfach mal googeln oder hier suchen

[Luckie]

Das ist aber nicht der von MS offizielle Weg.

Ich habs: ExtractAssociatedIconEx. Aber ich meine da wäre noch eine gewesen.

[littleDave]

Ich dachte, dass man das mit SHGetFileInfo macht!?!

[Matze]

@littleDave: Es gibt oft nicht nur einen einzigen Weg. ;)

Ich mache es jedoch auch immer mit ShGetFileInfo:

Delphi-Quellcode:

Icon: TIcon;
FileInfo: SHFileInfo;

// ...

SHGetFileInfo(PChar(ExtractFileExt('Pfad zur Datei')), FILE_ATTRIBUTE_NORMAL, FileInfo,
  SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
  SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
Icon.Handle := FileInfo.hIcon;

// ImageList ist ListView.SmallIcons zugewiesen
ListItem.ImageIndex := ImageList.AddIcon(Icon);

// ...

Das ist nur aufs Kürzeste zusammengefasst. Speicher freigeben etc. nicht vergessen.

Grüße, Matze

[littleDave]

@Matze: ich war nur so erstaunt, weil ich diese Funktion nicht kannte :shock:. Aber man lernt ja nie aus ;-)

[-Lucky-]

Das funzt nicht wirklich...

Delphi-Quellcode:

Icon.Handle := FileInfo.hIcon;

Genau in dieser Zeile steigt mein Programm aus! Wenn ich nur diese Zeile auskommentiere, dann läuft es wenigstens, auch wenn nichts passiert.

Zitat:

Im Projekt ***.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 004288F7 in Modul '***.exe'. Schreiben von Adresse C35B0005'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fotsetzen.

Bitte um Hilfe^^

[DeddyH]

Aber Icon ist instanziiert?

[lbccaleb]

Zitat:

Zitat von Matze

@littleDave: Es gibt oft nicht nur einen einzigen Weg. ;)

viele wege führen nach rom :lol: :lol:

naja und die 3 lösungsvorschläge werden ja wohl reichen, einer wird bestimmt gehem^^