如何用DELPHI创建一个文件夹和一个文本文件

CreateFile(FileName, fmCreate，）

创建文件夹：

ForceDirectiory

帮助里面有这两个函数的详细说明。

  path:string

  str: TStringList

begin

  path := 'C:\test' 

  CreateDir(path)

  str := TStringList.create

  str.text := '这是测试'

  str.savetofile(path + '\file.txt')

  str.free

end