Datei Icons herausfinden

[gsh]

Hi Leute

Ich würd gern eine Virtual String Tree als anzeigeplatz für meine Dateien verwenden. Aber ich möchte des auf der linken seite des symbol vom explorer benutzt wird. Also genauer gesagt möchte ich des symbol auf des die dateierweiterung regestriert ist.
Also wenn ich z.b. eine .zip datei anzeigen möchte dann möchte ich des WinZip symbol haben (wenn winzip installiert ist). Aber wenn jetzt z.b. winrar installiert ist dann will ich des rar symbol für die .zip datei haben. So wie es halt im explorer aussieht

Daführ gibt es doch sicher ein API oder?

so in der richtung: procedure GibMirSystemIcons(DateiErweiterung : PChar) : TIcon;

[mkinzler]

Die Icons stehen in der Registry bei den Dateitypen.

[gsh]

Wo genau?
Bei z.b. "HKEY_CLASSES_ROOT\.rar" ist der Standart wert auf "WinRAR" sonst nichts

[mkinzler]

Und bei RarFile?

[Garfield]

Ich habe es so ähnlich wie dort gemacht.-> http://www.stoer.de/tipps.html#fileicon

[Luckie]

SHGetFileInfo ist der richtige Weg.

[gsh]

Ah ok danke des dürfte des sein was ich gesucht habe.
Eine Frage noch: Geht des auch für Ordner?
Also wenn ich da einen Ordner angib bekomme ich dann des symbol davon weil ordner können ja auch verschiedene Symbole haben

[sakura]

Zitat:

Zitat von gsh

Ah ok danke des dürfte des sein was ich gesucht habe.
Eine Frage noch: Geht des auch für Ordner?

Ordner sind auch "nur" Dateien, ergo, SHGetFileInfo funktioniert auch für Ordner ;)

...:cat:...

[gsh]

Zitat:

Zitat von sakura

Zitat:

Zitat von gsh

Ah ok danke des dürfte des sein was ich gesucht habe.
Eine Frage noch: Geht des auch für Ordner?

Ordner sind auch "nur" Dateien, ergo, SHGetFileInfo funktioniert auch für Ordner ;)

perfekt
danke an alle

[gsh]

Hi ich bins nochmal :mrgreen:

ich benutze jetz folgende funktion:

Delphi-Quellcode:

function GetFileIcon(const FileName: string; const Icon: TIcon; const FileMustExist: Boolean): Boolean;
var
  FI: TSHFileInfo;
  Attributes: DWORD;
  Flags: Word;
begin
  if FileMustExist then
  begin
    Attributes := 0;
    Flags := SHGFI_ICON or SHGFI_LARGEICON;
  end
  else
  begin
    Attributes := FILE_ATTRIBUTE_NORMAL;
    Flags := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_LARGEICON;
  end;
  if SHGetFileInfo(PChar(FileName), Attributes, FI, SizeOf(FI), Flags) <> 0 then
  begin
    Icon.ReleaseHandle;
    Icon.Handle := FI.hIcon;
    Result := True;
  end
  else Result := False;
end;

So diese Funktion funktioniert schon ganz gut. Nur hab ich noch zwei Probleme damit.
Also wenn ich FileMustExist auf true setzte dann bekomme ich bei einer .Ink datei (verknüpfung) überhaupt keinen Icon.
Aber wenn ich FileMustExist auf false setzte dann bringt er bei einem Ordner kein richtiges Icon mehr.

Habt ihr eine Ahnung warum?