Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
进程查看器1.3版开发后记

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

  终于赶在元宵节这天发布“进程查看器1.3版”,顺便将它的中文版名字改为“05元宵版”。“进程查看器”一直都是用休息时间编码的,虽然1.3版增加的功能不多,但也耗用了好几天的下班时间。开发过程中还是有点东西需要记录下来,免得以后又忘记了。

一、查找主窗体
  通过特定的窗体句柄查找主窗体,这是以前做过的功能,随手写出以下代码:
    if hWnd <> 0 then
        while GetParent(hWnd) <> NULL do hWnd := GetParent(hWnd);
  在调整时发现竟然会死循环,把循环改为while GetParent(hWnd) <> 0后正常,后来才想起我以前在CSDN回答过别人的这个问题,发现自己起来越没记性了。

二、最大化窗口的矩形区域
  通过窗体句柄计算窗体矩形区域并画虚线提示框也是以前做过的功能,不过源码在家里,这趟只得重新编写。但是在我现用的Win2000系统中,最大化窗体的矩形区域左上角竟然是(-4,-4),且宽度也比屏幕宽度多了4,想来可能是Windows有意这样处理窗体,让它那个3D的边框显示在屏幕之外。印象中我上次做这个功能时并没有这个问题,不知是不是以前没注意到。

三、取进程的内存用量
  在Win2000下很容易实现,用GetProcessMemoryInfo就可以了,而且有任务管理器可以对比。而在Win98/ME下就麻烦多了,最后使用了下面的代码,但得到的数值很大,没得对比的情况下只能这样了。
    iFlag := VirtualQueryEx(hndProcess, lpAddr, mi, SizeOf(mi));
    repeat
        LongWord(lpAddr) := LongWord(mi.BaseAddress) + mi.RegionSize;
        if LongWord(lpAddr) > $7fffffff then break;
        if mi.State = MEM_COMMIT then Inc(iTotalCommit, mi.RegionSize);
        iFlag := VirtualQueryEx(hndProcess, lpAddr, mi, SizeOf(mi));
    until iFlag <> sizeof(mi);

四、GetWindowThreadProcessId
  DWORD GetWindowThreadProcessId(HWND, LPDWORD)可以返回两个值,一个是函数本身的返回值,另一个LPDWORD指向的变量,LPDWORD才进程ID。


以上备忘,请勿转载,多谢合作!




相关文章

相关软件