Pfade parsen um Icons zu extrahieren

[EWeiss]

Zitat von Medium:

Das wird nicht gehen. Du könntest ja z.B. sowas haben:

Code:

+C:
+--Musik
| +--Favoriten
+--Filme
  +--Favoriten

Wenn du jetzt nur "Favoriten" als Text hast - woher soll man ableiten, ob das unter "Musik" oder "Filme" gemeint war?

Hmm... vielleicht habe ich mich auch nicht richtig ausgedrückt.

Ich habe es jetzt so gelöst auf einfache weise.
Ich bekomme den Pfad hier

Delphi-Quellcode:

          CDN_FOLDERCHANGE:
            begin
              DirPath := PWideChar(OpenDialog.GetDlgPath(CDM_GETFOLDERPATH, WinHandle));
              if assigned(cbComboPath) then
                cbComboPath.IconPath := DirPath;
              Result := 1;
              Exit;
            end;

Wenn ich jetzt in der Componente Combobox bin "cbComboPath"
Parse ich den Path "DirPath"

Hier wird der Pfad in seine Einzelteile zerlegt.
Dann hole ich mir das Icon von jeden Pfad.

Delphi-Quellcode:

procedure TSkinComboBox.FillList(Path: WideString);
var
  FileInfo: SHFILEINFO;
  IntI: Integer;
  PathRecursive: TSplitStrArray;
  s: string;
begin

  SetLength(PathRecursive, 0);

  PathRecursive := Split(Path, '\');

  SetLength(IconHandle, High(PathRecursive));

  for IntI := 0 to High(PathRecursive) do
  begin
    s := s + PathRecursive[IntI] + '\';

    SHGetFileInfo(PWideChar(s), FILE_ATTRIBUTE_NORMAL, FileInfo, sizeof(FileInfo),
      SHGFI_DISPLAYNAME Or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);

    IconHandle[IntI] := FileInfo.HIcon;
  end;
end;

mir fehlen jedoch 2.
Desktop und Computer.

Dahingehend muss ich mir noch was überlegen da ich nun falsche Icons den jeweiligen Index in der Combobox zuweise.
Weil halt zwei fehlen.

gruss