求助大佬 帮忙修改一下

精益小选

.版本 2

.子程序 Optimize_memory, 整数型, , Optimize_memory
.参数 pid, 整数型
.局部变量 hProcess, 整数型

hProcess ＝ OpenProcess (2035711, 0, pid)
.如果真 (SetProcessWorkingSetSize (hProcess, -1, -1) ＝ 1)
    CloseHandle (hProcess)
    返回 (1)
.如果真结束
CloseHandle (hProcess)
返回 (0)

.子程序 Optimize_memory_all
.局部变量 hSnapShot, 整数型
.局部变量 prHandle, 整数型
.局部变量 pe32, PROCESSENTRY32

hSnapShot ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (hSnapShot ＝ 0)
.如果真结束
pe32.dwSize ＝ 1024
prHandle ＝ Process32First (hSnapShot, pe32)
.判断循环首 (prHandle ≠ 0)
    Optimize_memory (pe32.th32ProcessID)
    prHandle ＝ Process32Next (hSnapShot, pe32)
.判断循环尾 ()
CloseHandle (hSnapShot)
这个是我从论坛上的模仿360加速球优化复制下来的 模仿360优化内存的方法 我想修改成只对自身进程进行内存优化 有没有大佬能帮忙修改的 因为自己的程序老是占用内存太大，导致卡顿 发现360一键加速有效解决这个问题了

shiguang2018

  

子程序名	返回值类型	公开	备 注
Optimize_memory	整数型		Optimize_memory

变量名	类 型	静态	数组	备 注
pid	整数型
hProcess	整数型

pid ＝ 进程_取自进程ID ()
hProcess ＝ OpenProcess (2035711, 0, pid)
如果真 (SetProcessWorkingSetSize (hProcess, -1, -1) ＝ 1)
CloseHandle (hProcess)
返回 (1)
CloseHandle (hProcess)
返回 (0)

子程序名	返回值类型	公开	备 注
Optimize_memory_all

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
prHandle	整数型
pe32	PROCESSENTRY32

hSnapShot ＝ CreateToolhelp32Snapshot (15, 0)
如果真 (hSnapShot ＝ 0)
pe32.dwSize ＝ 1024
prHandle ＝ Process32First (hSnapShot, pe32)
判断循环首 (prHandle ≠ 0)
Optimize_memory (pe32.th32ProcessID)
prHandle ＝ Process32Next (hSnapShot, pe32)
判断循环尾 ()
CloseHandle (hSnapShot)

.版本 2<br /> <br /> .子程序 Optimize_memory, 整数型, , Optimize_memory<br /> .局部变量 pid, 整数型<br /> .局部变量 hProcess, 整数型<br /> <br /> pid ＝ 进程_取自进程ID ()<br /> hProcess ＝ OpenProcess (2035711, 0, pid)<br /> .如果真 (SetProcessWorkingSetSize (hProcess, -1, -1) ＝ 1)<br />     CloseHandle (hProcess)<br />     返回 (1)<br /> .如果真结束<br /> CloseHandle (hProcess)<br /> 返回 (0)<br /> <br /> .子程序 Optimize_memory_all<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 prHandle, 整数型<br /> .局部变量 pe32, PROCESSENTRY32<br /> <br /> hSnapShot ＝ CreateToolhelp32Snapshot (15, 0)<br /> .如果真 (hSnapShot ＝ 0)<br /> .如果真结束<br /> pe32.dwSize ＝ 1024<br /> prHandle ＝ Process32First (hSnapShot, pe32)<br /> .判断循环首 (prHandle ≠ 0)<br />     Optimize_memory (pe32.th32ProcessID)<br />     prHandle ＝ Process32Next (hSnapShot, pe32)<br /> .判断循环尾 ()<br /> CloseHandle (hSnapShot)

精益小选

没有大佬吗

du0518

内存释放不到处都是吗

精益小选

du0518 发表于 2025-12-16 10:52
内存释放不到处都是吗

跟360加速球一样的效果吗

RainCharm

不是你程序占用内存太大，你是电脑里的缓存垃圾没有及时清理，想顺畅一点一天一清，再勤快点半天一清，这个加速球N年没用过，浪费电脑内存还运行这个可有可无的程序