[In0stRAnez]

Народ почему не создаются папки, и нет ни одной ошибки

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
WindirP: PChar;
Res: Cardinal;
s: string;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
Memo1.Lines.Strings[0] := WindirP;
s := copy(Memo1.Lines.Strings[0],1,3);
Memo1.Lines.Strings[0] := s + '123\' ;

CreateDir(Memo1.Lines.Strings[0] + '\Settings\');
CreateDir(Memo1.Lines.Strings[0] + '\Projects\');

[Winny]

Вместо CreateDir попробуй ForceDirectories

[In0stRAnez]

Спасибо, всё работает!