用delphi如何创建一目录？

Question

path:=extractfilepath(application.exename);
path:=path+'data\';
  if DirectoryExists(path)=false then
    ForceDirectories(path);

Answer 1

uses FileCtrl;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;enjoy it：）

Answer 2

  ForceDirectories(c:\aaa);

Answer 3

var 
a:string;
..
CreatDir(a);
...

Answer 4

ForceDirectories 最好了，不管3721....

Answer 5

ForceDirectories('E:\Temp');
别忘了在单元的Uses里面加上FileCtrl

Answer 6

同意：　Crob(我干嘛这么帅)　

Answer 7

谁能说说ForceDirectories和CreatDir的区别啊？