Как я могу создать папку и создать новый текстовый файл в этой папке одновременно

Question

Я пытаюсь создать новую папку на моем диске C:, но также пытаюсь создать новый текстовый файл для хранения некоторой информации. Теперь этот код ниже создает папку, но часть текстового файла выдает мне следующую ошибку - « доступ к файлу запрещен ». Я все еще новичок в Delphi и буду признателен за любую помощь в следующем.

procedure TfrmLogin.Button2Click(Sender: TObject);
var
  user: string;
  tf: textfile;
begin
  if DirectoryExists('c:/' + Edtuser.Text) then
    ShowMessage(Edtuser.Text + 'folder exists')
  else
  begin
    if CreateDir('c:/' + Edtuser.Text) then
      ShowMessage('Login succesfull')
    else
      ShowMessage('Login unsucessfull!Please try again');
  end;

  user := Edtuser.Text;
  system.AssignFile(tf, 'C:\' + user + '.txt');

  system.rewrite(tf);
  system.Writeln(tf, edtPass.Text);
  system.closefile(tf);

Answer 1

Версии операционной системы на сегодняшний день не позволяют создавать файлы в корне системы по умолчанию: Windows 7 уже сделала это, и Windows 10 идет по тому же маршруту. Убедитесь, что вы можете создать, например, C:\user.txt - если нет, измените разрешения. Следовательно, ошибка ввода-вывода ОС «отказано в доступе» - она ​​не имеет ничего общего с Delphi и является довольно точной.