如何在系统文件夹下创建文本文件

Question

如何在系统文件夹下创建文本文件.
比如创建文本文件,其名为Delphi.txt
关在Delphi.txt该文件下写入"如何学习好DELPHI"内容~如果又在系统文件夹下的某文件夹下创建该文本文件又怎么做呢~
比如在系统文件夹下的名为DH文件夹下创建Delphi.txt文件!

Answer 1

如果你用的是memo/richedit控件或者是stringlist等有savetofile方法的类的话可以直接save如果你用的是assingfile方法，可以在append或者rewrite之后closefile，文件就保存了注意前提是该文件夹存在，否则需要创建文件夹后再保存，不然会报错

Answer 2

procedure TForm1.btn2Click(Sender: TObject);
var
  hdl:THandle;
begin
  hdl:=CreateFile('C:\windows\DH\Delphi.txt', GENERIC_ALL, FILE_SHARE_WRITE, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0 );
  CloseHandle(hdl);end;

Answer 3

var
  CnName:String;
  cn_file:TextFile;begin
    CnName:=getcurrentdir+'\delphi.txt';
    AssignFile(Cn_file,CnName);
    Rewrite(Cn_file);
    Writeln(Cn_file,'如何学习好DELPHI');
    closefile(cn_file);
end;

Answer 4

取得当前程序运行目录:Path:= ExtractFilepath(Application.Exename);

Answer 5

不用这么麻烦吧，直接ExtractFilePath(Paramstr(0))不就行了

Answer 6

Paramstr(0))就是该程序的Exe文件，效果是一样的

Answer 7

如果是程序所在路径，用loadfromfile/savetofile方法的话，可以不用加procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo1.lines.LoadFromFile('test.txt');
end;