void __fastcall Button1_Click(TObject *Sender){ ::CreateDirectory("路径", NULL); // 或者用Sysutils::ForceDirectories("路径")，这个支持多级路径}
