C:\TestFolder\Another\AndAnother
Delphi函数MkDir返回IOerror = 3。
MkDir('C:\TestFolder\Another\AndAnother');
ForceDirectories('C:\TestFolder\Another\AndAnother');
(这是一个标准的RTL功能,可以在SysUtils.pas中找到,因此您不需要创建自己的功能,即使这样做并不困难)