开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

楼主: 拜佛成魔
打印 上一主题 下一主题
收起左侧

[易语言软件开源] 让你的E程序占用内存更少 ( 减小任务器里面的占用内存)

  [复制链接]
结帖率:57% (4/7)
32
发表于 2011-6-5 00:35:26 | 只看该作者   浙江省杭州市
让你的E程序占用内存更少   减小任务器里面的占用内存   !!   怎么实现?
回复 支持 反对

使用道具 举报

31
发表于 2011-6-5 00:26:35 | 只看该作者   广东省汕头市
支持楼主支持一下……说下是什么原理
回复 支持 反对

使用道具 举报

30
发表于 2011-6-4 22:39:54 | 只看该作者   福建省莆田市
谢LZ 源码不错
回复 支持 反对

使用道具 举报

29
发表于 2011-6-4 22:11:27 | 只看该作者   山东省青岛市
这个问题正需要{:3_227:}
回复 支持 反对

使用道具 举报

28
发表于 2011-6-4 22:01:42 | 只看该作者   江西省南昌市
哇 太强悍了谢谢楼主分享
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)
27
发表于 2011-6-4 20:56:28 | 只看该作者   重庆市重庆市
看看是什么 呵呵
回复 支持 反对

使用道具 举报

结帖率:65% (11/17)
26
发表于 2011-6-4 19:28:05 | 只看该作者   黑龙江省七台河市
顶顶。···  喜欢喜欢。  学习学习
回复 支持 反对

使用道具 举报

25
发表于 2011-6-4 19:15:02 | 只看该作者   广东省惠州市
这个问题正需要{:3_245:}
回复 支持 反对

使用道具 举报

结帖率:65% (13/20)
24
发表于 2011-6-4 19:06:22 | 只看该作者   山东省济南市
什么呀,,瞅瞅
回复 支持 反对

使用道具 举报

结帖率:50% (2/4)
23
发表于 2011-6-4 18:48:11 | 只看该作者   赤道几内亚
EmptyWorkingSet和内存整理
2008-07-14 17:52
网络上找了很多关于内存整理的文章,不外乎都是使用EmptyWorkingSet来实现。就如下面这段代码。

#include "stdafx.h"
#include <windows.h>
#include <tlhelp32.h>
#include <psapi.h>
#pragma comment (lib,"psapi.lib")

BOOL EmptyAllSet()
{
    HANDLE SnapShot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if(SnapShot==NULL)
    {
        return FALSE;
    }
    PROCESSENTRY32 ProcessInfo;//声明进程信息变量
    ProcessInfo.dwSize=sizeof(ProcessInfo);//设置ProcessInfo的大小
    //返回系统中第一个进程的信息
    BOOL Status=Process32First(SnapShot, &ProcessInfo);
    while(Status)
    {
        HANDLE hProcess=OpenProcess(PROCESS_ALL_ACCESS,TRUE,ProcessInfo.th32ProcessID);
        if(hProcess)
        {
            SetProcessWorkingSetSize(hProcess,-1,-1);
            //内存整理
            EmptyWorkingSet(hProcess);
            CloseHandle(hProcess);
        }
        //获取下一个进程的信息
        Status=Process32Next(SnapShot,&ProcessInfo);
    }
    return TRUE;
}

int main(int argc, char* argv[])
{
    EmptyAllSet();
    return 0;
}

但在实际使用上,只能清理当前帐户启动的进程。其他进程,如SYSTEM帐户启动的程序,都是无法清理。这是因为权限的关系。这个时候只要加一段提升权限的代码即可。

void AdjustTokenPrivilegesForNT()
{
    HANDLE hToken;
    TOKEN_PRIVILEGES tkp;

    // Get a token for this process.

    OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);

    // Get the LUID for the EmptyWorkingSet privilege.

    LookupPrivilegeValue(NULL, SE_DEBUG_NAME, &tkp.Privileges[0].Luid);

    tkp.PrivilegeCount = 1; // one privilege to set   
    tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;

    // Get the EmptyWorkingSet privilege for this process.

    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, (PTOKEN_PRIVILEGES)NULL, 0);
}

然后在main的EmptyAllSet();调用之前加入AdjustTokenPrivilegesForNT();即可。这段代码与关机所用的那段很相似,有什么区别的话比较一下就知道了。

另外,很多文章说外面很多内存整理的工具不过如此,我觉得是很不负责任的。如果是使用EmptyWorkingSet实现的话当然是没什么技术含量,但是只要比较一下实现过程就会知道,很多好的内存整理工具的实现方法肯定不是这样的。运行上面这段代码耗时极短,硬盘几乎不进行读写。但是其他的整理工具往往会进行大量的硬盘读写,将内存数据转存到硬盘的分页文件里以达到整理内存的目的。孰优孰劣我不敢说,但是相对来说我还是觉得用EmptyWorkingSet实现来的快一点。

目前为止我还没有发现EmptyWorkingSet执行后会产生什么问题,如果有高人知道这个函数的缺点的话,望不吝赐教。谢谢。


回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表