如何用DELPHI实现在磁盘任一目录下新建一个空文件夹？

Question

如何用DELPHI实现在磁盘任一目录下新建一个空文件夹？
菜鸟向各位高手不吝赐教！！！
不胜感激！！！

Answer 1

uses SysUtils;
function CreateDir(const Dir: string): Boolean;
成功返回 True，失败返回False

Answer 2

to xiaocha:
程序运行时，提示错误信息“未找到声明SysUtils”
还有就是function CreateDir(const Dir: string): Boolean; 这句话您能举一个简单的例子吗？谢谢！！

Answer 3

？那就是你DELPHI的问题了。^_^

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
      raise Exception.Create('Cannot create c:\temp');
end;