Ich habe deinen Code mal etwas optimiert.
Delphi-Quellcode:
sAppDataDir := IncludeTrailingPathDelimiter(fktGetShellFolder(CSIDL_APPDATA)) + 'MyAPP';
ForceDirectories(sAppDataDir);
if not DirectoryExists(sAppDataDir) then
ShowMessageFmt('Verzeichnis <%s> konnte nicht angelegt werden!', [sAppDataDir]);
Wichtig ist vorallem eine aussagekräftige Fehlermeldung!!!!
Wenn diese Fehlermeldung erscheint, solltest du eine DOS-Box öffnen
und folgendes eingeben:
Code:
C:\> md komplettesverzeichnisausderfehlermeldung
Sollte dann das Verzeichnis immer noch nicht vorhanden sein, hast du ein Rechteproblem.
Sollte das Verzeichnis dann vorhanden sein, hat
ForceDirectories ein Problem.