Hi SirThornberry,
ich nutze bereits
ForceDirectories, wie du aus meinem ersten Post entnehmen kannst
Also für mich ist das ganze Rätsel.
Mein TestCode sieht mittlerweile so aus
Delphi-Quellcode:
sAppDataDir := fktGetShellFolder (CSIDL_APPDATA);
sAppDataDir := IncludeTrailingPathDelimiter (sAppDataDir);
sAppDataDir := sAppDataDir + 'MyAPP';
if not (DirectoryExists(sAppDataDir )) then
ForceDirectories(sAppDataDir );
if not (DirectoryExists(sAppDataDir )) then
ShowMessage('Kein Verzeichnis angelegt');
nun ratet mal welche Nachricht kommt.