如何创建文件夹并同时在此文件夹中创建新的文本文件

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-如果没有，请更改权限。因此，操作系统IO错误“访问被拒绝”-与Delphi无关，而且非常精确。