不太会调用API函数,哪位大哥指教下……
------解决方案--------------------
type SECURITY_ATTRIBUTES from structure
ulong nLength
ulong lpSecurityDescriptor
boolean bInheritHandle
end type
FUNCTION ulong CreateDirectory(ref string lpPathName,ref
SECURITY_ATTRIBUTES lpSecurityAttributes) LIBRARY "kernel32.dll" ALIAS FOR "CreateDirectoryA"
它俩是一个东西!
string s_dir
SECURITY_ATTRIBUTES sa
s_dir = 'xxx'
sa.nlength = 0
...
createdricetory(s_dir,sa)
------解决方案--------------------
pb的CreateDirectory 函数可以再当前目录里建立一个子目录
string ls_path="aaa"
integer li_filenum
CreateDirectory ( ls_path )
api的CreateDirectory 建目录也是但前目录