随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
CreateDirectory(
  lpPathName: PChar;                        {目录名}
  lpSecurityAttributes: PSecurityAttributes {TSecurityAttributes 结构的指针}
): BOOL;

//TSecurityAttributes 是 _SECURITY_ATTRIBUTES 结构的重定义
_SECURITY_ATTRIBUTES = record
  nLength: DWORD;                {结构体的大小}
  lpSecurityDescriptor: Pointer; {安全描述}
  bInheritHandle: BOOL;          {安全描述的对象能否被新创建的进程继承}
end;

//举例: var dir: string; begin dir := 'c:\temp\TestDir'; CreateDirectory(PChar(dir), nil); {第二个参数一般设为 nil, 表示使用系统默认的安全属性} end;

参考: ForceDirectories

posted on 2008-02-12 10:04  万一  阅读(...)  评论(...编辑  收藏