怎样在Delphi中新建一子目录？（这简单的问题我都不会，惭愧）

Question

上面blackfiles(blackfiles)的回答不完整　
应该是：s:=extractfiledir(application.exename); //获取执行文件所在的目录
       s:=s+'\'+'目录名';  //指定所要建立的目录名
       mkdir(s); //建立新的目录

Answer 1

function ForceDirectories(Dir: string): Boolean;

Answer 2

Windows API: CreateDir、CreateDirectory和CreateDirectoryEx

Answer 3

   if (not DirectoryExists(s)) then
      if (not CreateDir(s)) then
         begin
           ShowMessage('创建目录('+s+')错误！');
           exit;
         end;