自己封装的一个文件目录操作用户对象

$PBExportHeader$nvo_directory.sru
$PBExportComments$目录操作类
forward
globaltypenvo_directoryfromnonvisualobject
endtype
typestc_filetimefromstructurewithinnvo_directory
endtype
typestc_fileopstructfromstructurewithinnvo_directory
endtype
typestc_browseinfofromstructurewithinnvo_directory
endtype
typestc_find_datafromstructurewithinnvo_directory
endtype
typelarge_integerfromstructurewithinnvo_directory
endtype
typestc_ofstructfromstructurewithinnvo_directory
endtype
typeshfileopstructfromstructurewithinnvo_directory
endtype
endforward

typestc_filetimefromstructure
unsignedlong l_time
unsignedlong h_time
endtype

typestc_fileopstructfromstructure
unsignedlong hwnd
unsignedlong wfunc
string pfrom
string pto
long fflags
long fanyoperationsaborted
long hnamemappings
string lpszprogresstitle
endtype

typestc_browseinfofromstructure
long hwndowner
long pidlroot
string pszdisplayname
string lpsztitle
unsignedlong ulflags
unsignedlong lpfn
unsignedlong lparam
long iimage
endtype

typestc_find_datafromstructure
unsignedlong att
stc_filetime c_time
stc_filetime a_time
stc_filetime w_time
unsignedlong h_size
unsignedlong l_size
unsignedlong dwreserved0
unsignedlong dwreserved1
character cfilename[260]
character calternatefilename[16]
endtype

typelarge_integerfromstructure
unsignedlong lowpart
unsignedlong highpart
endtype

typestc_ofstructfromstructure
character cbytes
character ffixeddisk
long nerrcode
long reserved1
long reserved2
character szpathname[128]
endtype

typeshfileopstructfromstructure
long hwnd
unsignedlong wfunc
long pfrom
string pto
unsignedlong fflags
boolean fanyoperationsaborted
long hnamemappings
string lpszprogresstitle
endtype

globaltypenvo_directoryfromnonvisualobjectautoinstantiate
endtype

typeprototypes
FUNCTIONulongGetCurrentDirectoryA(ulongBufferLen,refstringcurrentdir)LIBRARY"kernel32.dll"
FUNCTIONulongSetCurrentDirectory(refstringlpPathName)LIBRARY"kernel32.dll"ALIASFOR"SetCurrentDirectoryA"
FunctionuLongGetModuleFileNameA(longhinstModule,RefStringlpszPath,uLongcchPath)Library"kernel32.dll"
FUNCTIONulongGetTempPath(ulongnBufferLength,refstringlpBuffer)LIBRARY"kernel32.dll"ALIASFOR"GetTempPathA"
FunctionbooleanCreateDirectoryA(stringlpPathName,stringlpSecurityAttributes)Library"kernel32.dll"1