进程查看器1.3版开发后记

　2006-02-04 14:01:34　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤秴顪冮妶鍡楀闁告鍥х叀濠㈣泛谩閻斿吋鐓ラ悗锝庡厴閸嬫挻绻濆顓涙嫼閻熸粎澧楃敮鎺撶娴煎瓨鐓曢柟鎯ь嚟閳藉鏌嶇紒妯荤叆妞ゎ偅绻堥幊婊呭枈濡顏归梻鍌欑閹诧紕绮欓幋锔哄亼闁哄鍨熼弸鏃堟煛閸愶絽浜剧紓浣虹帛缁嬫挻绂掗敃鍌氱＜婵﹩鍓﹂悗鎶芥⒒娴ｅ摜锛嶇紒顕呭灦楠炴垿宕堕鍌氱ウ闁诲函缍嗘禍鏍绩娴犲鐓欓梺顓ㄧ畱婢ь垱銇勯弬鍨偓瑙勭┍婵犲洦鍊锋い蹇撳閸嬫捇寮借濞兼牕鈹戦悩瀹犲闁稿被鍔庨幉姝岀疀濞戞ḿ鐤呴梺鍦檸閸犳寮查幖浣圭叆闁绘洖鍊圭€氾拷

核心提示：终于赶在元宵节这天发布“进程查看器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);

　　在调整时发现竟然会死循环，把循环改为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。