本文整理自网络，侵删。
//建立文件夹 CreateDir; CreateDirectory; ForceDirectories
var
dir: string;
begin
dir := 'c:\temp\delphi';
if not DirectoryExists(dir) then
CreateDir(dir); //返回 Boolean
//也可以直接用API:
CreateDirectory(PChar(dir),nil); //返回 Boolean
//如果缺少上层目录将自动补齐:
dir := 'c:\temp\CodeGear\Delphi\2007\万一';
ForceDirectories(dir); //返回 Boolean
end;
==================
function CreateDir(const Dir: string): Boolean;
begin
{$IFDEF MSWINDOWS}
Result := CreateDirectory(PChar(Dir), nil);
{$ENDIF}
{$IFDEF LINUX}
Result := __mkdir(PChar(Dir), mode_t(-1)) = 0;
{$ENDIF}
end;
相关阅读 >>
Delphi研究之驱动开发篇（六）--利用section与用户模式程
更多相关阅读请进入《Delphi》频道 >>
