Ok dann für morgen
Delphi-Quellcode:
if (FindFirst(FFullPath + '*', faAnyFile, SR) = 0) then
begin
try
repeat
if ((SR.Name <> '.') and (SR.Name <> '..')) then // and ((SR.Attr and faDirectory) = faDirectory)) then
begin
Dir := TDirectory.Create(Format('%s%s\', [FFullPath, SR.Name]));
Dir.FDirName := SR.Name;
// An dieser Stelle müssen wir prüfen, ob das Verzeichnis Unterverzeichnisse besitzt
// Dies wird benötigt, damit das "+" Symbol vor der Node angezeigt wird
// Self.HasSubDirectories := CheckHasSubDirectories;
Self.SubDirectories.Add(Dir);
SHGetFileInfo(PChar(FFullPath + SR.Name), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
Self.iIconIndex := Info.iIcon;
end;
until (FindNext(SR) <> 0);
finally
FindClose(SR);
FAlreadyLoaded := True;
end;
end;
Angezeigt bekomme ich zwar ein Icon, aber für alle Nodes dasselbe. Ein ganz komisches, teils grünes mit Anführungszeichen.