易语言清除系统临时文件

系统结构:删除文件夹内的所有文件,GetTempPath,RegOpenKeyEx,RegQueryInfoKey,RegQueryValueEx,CreateFile,ExpandEnvironmentStrings,RegCloseKey,CloseHandle,FindFirstFile,FindClose,FindNextFile,DeleteFile,SetFileAttributes,RemoveDirectory,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮_开始清理_被单击
           |  |
           |  |------ 删除文件夹内的所有文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetTempPath
           |  |
           |  |---[dll]------   RegOpenKeyEx
           |  |
           |  |---[dll]------   RegQueryInfoKey
           |  |
           |  |---[dll]------   RegQueryValueEx
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   ExpandEnvironmentStrings
           |  |
           |  |---[dll]------   RegCloseKey
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   FindFirstFile
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   FindNextFile
           |  |
           |  |---[dll]------   DeleteFile
           |  |
           |  |---[dll]------   SetFileAttributes
           |  |
           |  |---[dll]------   RemoveDirectory

调用的DLL命令:

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

.DLL命令 RegOpenKeyEx, 整数型, "advapi32.dll", "RegOpenKeyExA"
    .参数 hKey, 整数型
    .参数 lpSubKey, 文本型, 传址
    .参数 ulOptions, 整数型
    .参数 samDesired, 整数型
    .参数 phkResult, 整数型, 传址

.DLL命令 RegQueryInfoKey, 整数型, "advapi32.dll", "RegQueryInfoKeyA"
    .参数 hKey, 整数型
    .参数 lpClass, 整数型
    .参数 lpcbClass, 整数型
    .参数 lpReserved, 整数型
    .参数 lpcSubKeys, 整数型
    .参数 lpcbMaxSubKeyLen, 整数型
    .参数 lpcbMaxClassLen, 整数型
    .参数 lpcValues, 整数型
    .参数 lpcbMaxValueNameLen, 整数型
    .参数 lpcbMaxValueLen, 整数型, 传址
    .参数 lpcbSecurityDescriptor, 整数型
    .参数 lpftLastWriteTime, 整数型

.DLL命令 RegQueryValueEx, 整数型, "advapi32.dll", "RegQueryValueExA"
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型, 传址
    .参数 lpReserved, 整数型
    .参数 lpType, 整数型
    .参数 lpData, 文本型, 传址
    .参数 lpcbData, 整数型, 传址

.DLL命令 CreateFile, 整数型, "kernel32.dll", "CreateFileA"
    .参数 lpFileName, 文本型, 传址
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 ExpandEnvironmentStrings, 整数型, "kernel32.dll", "ExpandEnvironmentStringsA"
    .参数 lpSrc, 文本型, 传址
    .参数 lpDst, 文本型, 传址
    .参数 nSize, 整数型

.DLL命令 RegCloseKey, 整数型, "advapi32.dll", "RegCloseKey"
    .参数 hKey, 整数型

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

.DLL命令 FindFirstFile, 整数型, "kernel32.dll", "FindFirstFileA"
    .参数 lpFileName, 文本型, 传址
    .参数 lpFindFileData, 字节集, 传址

.DLL命令 FindClose, 整数型, "kernel32.dll", "FindClose"
    .参数 hFindFile, 整数型

.DLL命令 FindNextFile, 整数型, "kernel32.dll", "FindNextFileA"
    .参数 hFindFile, 整数型
    .参数 lpFindFileData, 字节集, 传址

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

.DLL命令 SetFileAttributes, 整数型, "kernel32.dll", "SetFileAttributesA"
    .参数 lpFileName, 文本型, 传址
    .参数 dwFileAttributes, 整数型

.DLL命令 RemoveDirectory, 整数型, "kernel32.dll", "RemoveDirectoryA"
    .参数 lpPathName, 文本型, 传址