Delphi CreateDir 建立文件夹路径

本文整理自网络，侵删。

 //建立文件夹 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里动态创建access的交叉表视图

Delphi android / ios应用程序中使用tgeocoder类进行反向地理编码（从位置信息中获取地址）

Delphi getprocessmemoryinfo获取进程占用内存大小

Delphi 使用 lockbox 做加密解密

Delphi webservices传数据

Delphi inttostr 将“整数型”转换成“字符型”

Delphi 读url下txt中的下载地址的简单下载者代码

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi application.processmessage作用

Delphi基于sobel算子的图像边缘检测

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi CreateDir 建立文件夹路径