进程查看器1.3版开发后记
2006-02-04 14:01:34 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鎯у⒔閹虫捇鈥旈崘顏佸亾閿濆簼绨绘い鎺嬪灪閵囧嫰骞囬姣挎捇鏌熸笟鍨妞ゎ偅绮撳畷鍗炍旈埀顒勭嵁婵犲嫮纾介柛灞捐壘閳ь剛鎳撻~婵嬪Ω閳轰胶鐤呯紓浣割儐椤戞瑩宕ョ€n喗鐓曟い鎰靛亝缁舵氨绱撻崘鈺傜婵﹤顭峰畷鎺戔枎閹搭厽袦婵犵數濮崑鎾绘⒑椤掆偓缁夌敻骞嗛悙鍝勭婵烇綆鍓欐俊鑲╃磼閹邦収娈滈柡灞糕偓鎰佸悑閹肩补鈧尙鏁栧┑鐐村灦閹稿摜绮旈悽绋课﹂柛鏇ㄥ灠閸愨偓濡炪倖鍔﹀鈧繛宀婁邯濮婅櫣绱掑Ο璇茶敿闂佺ǹ娴烽弫璇差嚕婵犳碍鏅插璺猴工瀹撳棝姊虹紒妯哄缂佷焦鎸冲畷鎴﹀箻鐠囧弶宓嶅銈嗘尰缁嬫垶绂嶉悙顒佸弿婵☆垳鍘ф禍楣冩倵濮樼偓瀚�

核心提示:终于赶在元宵节这天发布“进程查看器1.3版”,顺便将它的中文版名字改为“05元宵版”,进程查看器1.3版开发后记,“进程查看器”一直都是用休息时间编码的,虽然1.3版增加的功能不多,一个是函数本身的返回值,另一个LPDWORD指向的变量,但也耗用了好几天的下班时间,开发过程中还是有点东西需要记录下来
终于赶在元宵节这天发布“进程查看器1.3版”,顺便将它的中文版名字改为“05元宵版”。“进程查看器”一直都是用休息时间编码的,虽然1.3版增加的功能不多,但也耗用了好几天的下班时间。开发过程中还是有点东西需要记录下来,免得以后又忘记了。
一、查找主窗体
通过特定的窗体句柄查找主窗体,这是以前做过的功能,随手写出以下代码:
if hWnd <> 0 then while GetParent(hWnd) <> NULL do hWnd := GetParent(hWnd); |
二、最大化窗口的矩形区域
通过窗体句柄计算窗体矩形区域并画虚线提示框也是以前做过的功能,不过源码在家里,这趟只得重新编写。但是在我现用的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。
更多精彩
赞助商链接