易语言多线程删除垃圾源码

系统结构:扫描文件夹,GetSize,输出列表,Del,SetProcessAffinityMask,SetProcessWorkingSetSize,SetThreadAffinityMask,

======D
           |  |
           |  |------ _按钮扫描_被单击
           |  |
           |  |------ 扫描文件夹
           |  |
           |  |------ GetSize
           |  |
           |  |------ 输出列表
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮浏览_被单击
           |  |
           |  |------ _按钮清空_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ Del
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetProcessAffinityMask
           |  |
           |  |---[dll]------   SetProcessWorkingSetSize
           |  |
           |  |---[dll]------   SetThreadAffinityMask

调用的DLL命令:

.DLL命令 SetProcessAffinityMask, 整数型, "Kernel32.dll", "SetProcessAffinityMask", , 设置CPU亲和性  进程句柄  返回CPU号SetProcessAffinityMask
    .参数 hProcess, 整数型, , 进程句柄
    .参数 Mask, 整数型, , 参数

.DLL命令 SetProcessWorkingSetSize, 整数型, , "SetProcessWorkingSetSize"
    .参数 hProcess
    .参数 dwMinimumWorkingSetSize
    .参数 dwMaximumWorkingSetSize

.DLL命令 SetThreadAffinityMask, 整数型, "Kernel32.dll", "SetThreadAffinityMask", , 设置CPU亲和性  线程句柄SetThreadAffinityMask
    .参数 hProcess, 整数型, , 线程句柄
    .参数 Mask, 整数型, , 参数