Zitat:
die genau so XP benutzen
Aber Dateirechte gab es da auch schon.
Bei fehlenden Rechten sollte CreateDir es allerdings False zurückliefen.
Wie heißen denn die Verzeichnisse und wo sollen sie erstellt werden?
Test:
Delphi-Quellcode:
Nummer := 0;
REPEAT
ok := CreateDir(Verzeichnis);
IF not ok THEN
begin
ShowMessage('OK');
...
end
ELSE
ShowMessage(SysErrorMessage(GetLastError));
UNTIL ok;