易语言斩月磁盘命令模块源码

系统结构:磁盘_取剩余空间,磁盘_取总空间,磁盘_取已用空间,磁盘_取驱动器列表,磁盘_置卷标,磁盘_取卷标,磁盘_取信息,目录_改变目录,目录_取当前目录,目录_创建目录,目录_文件夹是否存在,目录_文件夹是否为空,目录_移动目录,目录_复制目录,目录_删除目录,目录_浏览文件夹,回收站_删除到回收站,回收站_清空回收站,回收站_是否有文件,文件_目录_进度移动,文件_目录_进度复制,文件_目录_进度删除,文件_移动文件,文件_复制文件,文件_删除文件,文件_取临时文件名,文件_文件更名,文件_文件是否存在,文件_取文件尺寸,文件_读入文件,文件_写到文件,文件_取文件属性,文件_置文件属性,文件_置文件时间,文件_取文件时间,其他_时间到文本,其他_文本到时间,FileTimeToVariantTime,VariantTimeToFileTime,字节集_取长度,字节集_取空白,字节集_到文本,字节集_取中间,整数_到文本,文本_到整数,文本_寻找,文本_取左边,文本_取中间,文本_取右边,文本_取空白,文本_到字节集,文本_删首尾空,GetTempFileName,GetTempPath,GetDiskFreeSpaceEx,GetLogicalDriveStrings,SetVolumeLabel,GetVolumeInformation,GetDriveType,SetCurrentDirectory,CreateDirectory,MoveFileEx,SHFileExists,PathIsDirectory,PathIsDirectoryEmpty,SHFileOperation,SHEmptyRecycleBin,SHQueryRecycleBin,CoTaskMemFree,SHGetPathFromIDList,SHBrowseForFolder,SHGetSpecialFolderLocation,SHGetFolderPath,SHGetFolderLocation,ILCreateFromPathW,MultiByteToWideChar,WideCharToMultiByte,DeleteFile,CopyFile,VariantTimeToSystemTime,SystemTimeToVariantTime,GetFileTime,lopen,FileTimeToSystemTime,SystemTimeToFileTime,SetFileTime,FileTimeToLocalFileTime,LocalFileTimeToFileTime,GetFileSize,lread,lcreat,lwrite,GetFileAttributes,SetFileAttributes,CloseHandle,lstrcpyn,StrToInt64Ex,LocalAlloc,LocalFree,lstrcpyn_字节集,RtlMoveMemory,文本_取长度,lstrcpyn_文本型,FillMemory,GetCurrentDirectory,StrTrim,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 磁盘_取剩余空间
           |  |
           |  |------ 磁盘_取总空间
           |  |
           |  |------ 磁盘_取已用空间
           |  |
           |  |------ 磁盘_取驱动器列表
           |  |
           |  |------ 磁盘_置卷标
           |  |
           |  |------ 磁盘_取卷标
           |  |
           |  |------ 磁盘_取信息
           |  |
           |  |------ 目录_改变目录
           |  |
           |  |------ 目录_取当前目录
           |  |
           |  |------ 目录_创建目录
           |  |
           |  |------ 目录_文件夹是否存在
           |  |
           |  |------ 目录_文件夹是否为空
           |  |
           |  |------ 目录_移动目录
           |  |
           |  |------ 目录_复制目录
           |  |
           |  |------ 目录_删除目录
           |  |
           |  |------ 目录_浏览文件夹
           |  |
           |  |------ 回收站_删除到回收站
           |  |
           |  |------ 回收站_清空回收站
           |  |
           |  |------ 回收站_是否有文件
           |  |
           |  |------ 文件_目录_进度移动
           |  |
           |  |------ 文件_目录_进度复制
           |  |
           |  |------ 文件_目录_进度删除
           |  |
           |  |------ 文件_移动文件
           |  |
           |  |------ 文件_复制文件
           |  |
           |  |------ 文件_删除文件
           |  |
           |  |------ 文件_取临时文件名
           |  |
           |  |------ 文件_文件更名
           |  |
           |  |------ 文件_文件是否存在
           |  |
           |  |------ 文件_取文件尺寸
           |  |
           |  |------ 文件_读入文件
           |  |
           |  |------ 文件_写到文件
           |  |
           |  |------ 文件_取文件属性
           |  |
           |  |------ 文件_置文件属性
           |  |
           |  |------ 文件_置文件时间
           |  |
           |  |------ 文件_取文件时间
           |  |
           |  |------ 其他_时间到文本
           |  |
           |  |------ 其他_文本到时间
           |  |
           |  |------ FileTimeToVariantTime
           |  |
           |  |------ VariantTimeToFileTime
           |  |
           |  |
======功能集
           |  |
           |  |------ _取指针_字节集
           |  |
           |  |------ 字节集_取长度
           |  |
           |  |------ 字节集_取空白
           |  |
           |  |------ 字节集_到文本
           |  |
           |  |------ 字节集_取中间
           |  |
           |  |------ _取指针_文本型
           |  |
           |  |------ 整数_到文本
           |  |
           |  |------ 文本_到整数
           |  |
           |  |------ 文本_寻找
           |  |
           |  |------ 文本_取左边
           |  |
           |  |------ 文本_取中间
           |  |
           |  |------ 文本_取右边
           |  |
           |  |------ 文本_取空白
           |  |
           |  |------ 文本_到字节集
           |  |
           |  |------ 文本_删首尾空
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetTempFileName
           |  |
           |  |---[dll]------   GetTempPath
           |  |
           |  |---[dll]------   GetDiskFreeSpaceEx
           |  |
           |  |---[dll]------   GetLogicalDriveStrings
           |  |
           |  |---[dll]------   SetVolumeLabel
           |  |
           |  |---[dll]------   GetVolumeInformation
           |  |
           |  |---[dll]------   GetDriveType
           |  |
           |  |---[dll]------   SetCurrentDirectory
           |  |
           |  |---[dll]------   CreateDirectory
           |  |
           |  |---[dll]------   MoveFileEx
           |  |
           |  |---[dll]------   SHFileExists
           |  |
           |  |---[dll]------   PathIsDirectory
           |  |
           |  |---[dll]------   PathIsDirectoryEmpty
           |  |
           |  |---[dll]------   SHFileOperation
           |  |
           |  |---[dll]------   SHEmptyRecycleBin
           |  |
           |  |---[dll]------   SHQueryRecycleBin
           |  |
           |  |---[dll]------   CoTaskMemFree
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   SHBrowseForFolder
           |  |
           |  |---[dll]------   SHGetSpecialFolderLocation
           |  |
           |  |---[dll]------   SHGetFolderPath
           |  |
           |  |---[dll]------   SHGetFolderLocation
           |  |
           |  |---[dll]------   ILCreateFromPathW
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   DeleteFile
           |  |
           |  |---[dll]------   CopyFile
           |  |
           |  |---[dll]------   VariantTimeToSystemTime
           |  |
           |  |---[dll]------   SystemTimeToVariantTime
           |  |
           |  |---[dll]------   GetFileTime
           |  |
           |  |---[dll]------   lopen
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   SystemTimeToFileTime
           |  |
           |  |---[dll]------   SetFileTime
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   LocalFileTimeToFileTime
           |  |
           |  |---[dll]------   GetFileSize
           |  |
           |  |---[dll]------   lread
           |  |
           |  |---[dll]------   lcreat
           |  |
           |  |---[dll]------   lwrite
           |  |
           |  |---[dll]------   GetFileAttributes
           |  |
           |  |---[dll]------   SetFileAttributes
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   StrToInt64Ex
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   lstrcpyn_字节集
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   文本_取长度
           |  |
           |  |---[dll]------   lstrcpyn_文本型
           |  |
           |  |---[dll]------   FillMemory
           |  |
           |  |---[dll]------   GetCurrentDirectory
           |  |
           |  |---[dll]------   StrTrim

调用的DLL命令:

.DLL命令 GetTempFileName, 整数型, "kernel32", "GetTempFileNameA"
    .参数 lpszPath, 文本型
    .参数 lpPrefixString, 整数型
    .参数 wUnique, 整数型
    .参数 lpTempFileName, 文本型

.DLL命令 GetTempPath, 整数型, "kernel32", "GetTempPathA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 文本型

.DLL命令 GetDiskFreeSpaceEx, 整数型, "kernel32.dll", "GetDiskFreeSpaceExA"
    .参数 lpDirectoryName, 文本型
    .参数 lpFreeBytesAvailableToCaller, 长整数型, 传址
    .参数 lpTotalNumberOfBytes, 长整数型, 传址
    .参数 lpTotalNumberOfFreeBytes, 长整数型, 传址

.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32", "GetLogicalDriveStringsA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 字节集

.DLL命令 SetVolumeLabel, 逻辑型, "kernel32", "SetVolumeLabelA"
    .参数 lpRootPathName, 文本型
    .参数 lpVolumeName, 文本型

.DLL命令 GetVolumeInformation, 整数型, "kernel32", "GetVolumeInformationA"
    .参数 lpRootPathName, 文本型
    .参数 lpVolumeNameBuffer, 文本型
    .参数 nVolumeNameSize, 整数型
    .参数 lpVolumeSerialNumber, 整数型, 传址
    .参数 lpMaximumComponentLength, 整数型, 传址
    .参数 lpFileSystemFlags, 整数型, 传址
    .参数 lpFileSystemNameBuffer, 文本型
    .参数 nFileSystemNameSize, 整数型

.DLL命令 GetDriveType, 整数型, "kernel32", "GetDriveTypeA"
    .参数 nDrive, 文本型

.DLL命令 SetCurrentDirectory, 逻辑型, "kernel32", "SetCurrentDirectoryA"
    .参数 lpPathName, 文本型

.DLL命令 CreateDirectory, 逻辑型, "kernel32", "CreateDirectoryA"
    .参数 lpPathName, 文本型
    .参数 lpSecurityAttributes, 整数型

.DLL命令 MoveFileEx, 逻辑型, "kernel32", "MoveFileExA"
    .参数 lpExistingFileName, 文本型
    .参数 lpNewFileName, 文本型
    .参数 dwFlags, 整数型

.DLL命令 SHFileExists, 逻辑型, "shell32", "#45"
    .参数 szPath, 文本型

.DLL命令 PathIsDirectory, 逻辑型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 lpszPath, 文本型

.DLL命令 PathIsDirectoryEmpty, 逻辑型, "shlwapi.dll", "PathIsDirectoryEmptyA"
    .参数 pszPath, 文本型

.DLL命令 SHFileOperation, 整数型, "Shell32.dll", "SHFileOperationA"
    .参数 文件参数, SHFILEOPSTRUCT

.DLL命令 SHEmptyRecycleBin, , "shell32.dll", "SHEmptyRecycleBinA"
    .参数 句柄, 整数型
    .参数 pszRootPath, 文本型
    .参数 dwFlags, 整数型

.DLL命令 SHQueryRecycleBin, 整数型, "shell32.dll", "SHQueryRecycleBinA"
    .参数 根路径, 文本型
    .参数 回收站询问信息, SHQUERYRBINFO, 传址

.DLL命令 CoTaskMemFree, , "ole32"
    .参数 pv, 整数型

.DLL命令 SHGetPathFromIDList, 整数型, "shell32", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 pszPath, 文本型

.DLL命令 SHBrowseForFolder, 整数型, "shell32", "SHBrowseForFolderA"
    .参数 lpBrowseInfo, BROWSEINFO, 传址

.DLL命令 SHGetSpecialFolderLocation, 整数型, "shell32"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 pidl, ITEMIDLIST, 传址

.DLL命令 SHGetFolderPath, 整数型, "shell32", "SHGetFolderPathA"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 hToken, 整数型
    .参数 dwReserved, 整数型
    .参数 lpszPath, 文本型

.DLL命令 SHGetFolderLocation, 整数型, "shell32"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 hToken, 整数型
    .参数 dwReserved, 整数型
    .参数 pidl, ITEMIDLIST, 传址

.DLL命令 ILCreateFromPathW, 整数型, , "ILCreateFromPathW"
    .参数 pwszPath, 字节集

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 unknow, 整数型
    .参数 unknow, 整数型

.DLL命令 DeleteFile, 整数型, "kernel32", "DeleteFileA"
    .参数 lpFileName, 文本型

.DLL命令 CopyFile, 整数型, "kernel32", "CopyFileA"
    .参数 lpExistingFileName, 文本型
    .参数 lpNewFileName, 文本型
    .参数 bFailIfExists, 整数型

.DLL命令 VariantTimeToSystemTime, 整数型, "oleaut32.dll", "VariantTimeToSystemTime"
    .参数 double, 日期时间型
    .参数 LPSYSTEMTIME, 系统时间, 传址

.DLL命令 SystemTimeToVariantTime, 整数型, "oleaut32.dll", "SystemTimeToVariantTime"
    .参数 LPSYSTEMTIME, 系统时间, 传址
    .参数 double, 日期时间型, 传址

.DLL命令 GetFileTime, 整数型, "kernel32", "GetFileTime"
    .参数 hFile, 整数型
    .参数 lpCreationTime, FILETIME, 传址
    .参数 lpLastAccessTime, FILETIME, 传址
    .参数 lpLastWriteTime, FILETIME, 传址

.DLL命令 lopen, 整数型, "kernel32", "_lopen"
    .参数 lpPathName, 文本型
    .参数 iReadWrite, 整数型

.DLL命令 FileTimeToSystemTime, 整数型, "kernel32", "FileTimeToSystemTime"
    .参数 lpFileTime, FILETIME, 传址
    .参数 lpSystemTime, 系统时间, 传址

.DLL命令 SystemTimeToFileTime, 整数型, "kernel32", "SystemTimeToFileTime"
    .参数 lpSystemTime, 系统时间, 传址
    .参数 lpFileTime, FILETIME, 传址

.DLL命令 SetFileTime, 逻辑型, "kernel32", "SetFileTime"
    .参数 hFile, 整数型
    .参数 lpCreationTime, FILETIME, 传址
    .参数 lpLastAccessTime, FILETIME, 传址
    .参数 lpLastWriteTime, FILETIME, 传址

.DLL命令 FileTimeToLocalFileTime, 整数型, "kernel32", "FileTimeToLocalFileTime"
    .参数 lpFileTime, FILETIME, 传址
    .参数 lpLocalFileTime, FILETIME, 传址

.DLL命令 LocalFileTimeToFileTime, 整数型, "kernel32", "LocalFileTimeToFileTime"
    .参数 lpLocalFileTime, FILETIME, 传址
    .参数 lpFileTime, FILETIME, 传址

.DLL命令 GetFileSize, 整数型, "kernel32", "GetFileSize"
    .参数 hFile, 整数型
    .参数 lpFileSizeHigh, 整数型

.DLL命令 lread, 整数型, "kernel32", "_lread"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 wBytes, 整数型

.DLL命令 lcreat, 整数型, "kernel32", "_lcreat"
    .参数 lpPathName, 文本型
    .参数 iAttribute, 整数型

.DLL命令 lwrite, 整数型, "kernel32", "_lwrite"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 wBytes, 整数型

.DLL命令 GetFileAttributes, 整数型, "kernel32", "GetFileAttributesA"
    .参数 lpFileName, 文本型

.DLL命令 SetFileAttributes, 逻辑型, "kernel32", "SetFileAttributesA"
    .参数 lpFileName, 文本型
    .参数 dwFileAttributes, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 lstrcpyn, 文本型, "kernel32", "lstrcpynA"
    .参数 lpString1, 字节型, 数组
    .参数 lpString2, 字节型
    .参数 iMaxLength, 整数型

.DLL命令 StrToInt64Ex, 整数型, "shlwapi.dll", "StrToInt64ExA"
    .参数 pszString, 文本型
    .参数 dwFlags, 整数型
    .参数 piRet, 整数型, 传址

.DLL命令 LocalAlloc, 整数型
    .参数 uFlags, 整数型
    .参数 uBytes, 整数型

.DLL命令 LocalFree, 整数型
    .参数 hMem, 整数型

.DLL命令 lstrcpyn_字节集, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 字节集, 传址
    .参数 欲取其指针, 字节集, 传址
    .参数 保留, 整数型

.DLL命令 RtlMoveMemory, 整数型, , "RtlMoveMemory"
    .参数 lpvDest, 整数型, 传址
    .参数 lpvSource, 整数型
    .参数 cbCopy, 整数型

.DLL命令 文本_取长度, 整数型, "kernel32.dll", "lstrlenA"
    .参数 文本, 文本型

.DLL命令 lstrcpyn_文本型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 文本型, 传址
    .参数 欲取其指针, 文本型, 传址
    .参数 保留, 整数型

.DLL命令 FillMemory, , , "RtlFillMemory"
    .参数 Destination, 整数型
    .参数 Length, 整数型
    .参数 Fill, 字节型

.DLL命令 GetCurrentDirectory, 整数型, "kernel32", "GetCurrentDirectoryA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 文本型

.DLL命令 StrTrim, 整数型, "shlwapi.dll", "StrTrimA"
    .参数 psz, 文本型
    .参数 pszTrimChars, 文本型