Zitat von
Mazel:
Delphi-Quellcode:
If DirectoryExists(GetShellFolder(SHELL_CSIDL_DIRS[i])) then
begin
SysDirInfo[i].DirName := SHELL_STRING_DIRS[i];
SysDirInfo[i].DirPath := GetShellFolder(SHELL_CSIDL_DIRS[i]);
Inc(SysDirCounter);
end;
Was ist hier falsch?
Hi,
sieht ein wenig so aus, als ob Du SysDirInfo[i] durch SysDirInfo[SysDirCounter] ersetzen solltest. Besser wäre vielleicht gleich auf eine TList zurückzugreifen.
Gruß Der Unwissende