delphi 中如何创建多级目录？

Question

比如：在目录C:\ 中建立这样的目录 C:\App1\1
                                        \2
                                        \3
                                        \4
谢谢各位啦！

Answer 1

ForceDirectories(Tedit(Sender).text); //创建目录并且是多级目录

Answer 2

ForceDirectories('C:\App1\1\2\3\4'); //创建目录并且是多级目录

Answer 3

ForceDirectories，有兴趣可以看看他的代码
在SysUtils里面