Народ почему не создаются папки, и нет ни одной ошибки
Код:
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\');