主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

大师,帮帮我.. 找到类似的分支


YUS   (2001-11-01 03:13) [0]

大师,告诉我错误在哪里? 您需要获取Windows列表和
exe文件名。

使用tlhelp32;
过程TForm1.Button2Click(Sender:TObject);
VAR
窗口:hWnd; hSn:THandle; lppe:TProcessEntry32;
缓冲区:字符数组[0..127]; ht,hProc:红衣主教;
开始
//寻找顶部窗口的句柄
窗口:= GetForegroundWindow;
重复
如果(Window <> Application.Handle)和
(GetWindowText(窗口,缓冲区,sizeof(缓冲区))<> 0)
然后开始
//寻找进程ID
ht:= GetWindowThreadProcessId(Window,@ hProc);
//拍摄过程快照
hSn:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,hProc);
//获取所有进程的列表
如果Process32First(hSn,lppe)然后
重复
//比较ID并获取名称exe和路径?????????????????
如果lppe.th32ProcessID = ht然后
开始
GetWindowText(窗口,缓冲区,sizeof(缓冲区));
与ListView1.Items.Add一起开始
标题:=缓冲区;
SubItems.Add(lppe.szExeFile);
结束;
结束;
直到没有Process32Next(hSn,lppe);
CloseHandle(hSn);
结束;
//搜索下一个窗口
窗口:= GetNextWindow(窗口,GW_HWNDNEXT);
直到Window = 0;

结束;



troits   (2001-11-01 12:54) [1]

因此,副手:
有:
如果lppe.th32ProcessID = ht然后
一定是
如果lppe.th32ProcessID = hProc,则

是的,您不需要通过CreateToolHelp32Snapshot hProc。



YUS   (2001-11-01 16:40) [2]

特洛伊特
谢谢你的指导。
的确,如果lppe.th32ProcessID = hProc,则ht是不必要的
在ht中:= GetWindowThreadProcessId(窗口,@ hProc); 但没有CreateToolHelp32Snapshot则无法工作



troits   (2001-11-01 17:18) [3]

我想在功能上说
CreateToolHelp32Snapshot
带有第一个参数TH32CS_SNAPPROCESS
第二个被忽略。
您可以放入例如0。



Страницы: 1 整个分支

论坛:“WinAPI”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.55 MB
时间:0.045 c
14-22370年
Zergg
2001-11-08 16:30
2002.01.08
关于从CBuilder加载静态DLL


1-22033年
沃龙科夫
2001-12-18 12:27
2002.01.08
如何使按键处理程序打开时TEdit不会发出蜂鸣声。


14-22319年
国际能源署(IEA)
2001-11-02 13:34
2002.01.08
任何佩戴(l)眼镜的人! 问题不是空闲


3-21897年
MaksB
2001-11-27 14:33
2002.01.08
DBMS缓存


1-22257年
Dmitry1
2001-12-14 16:53
2002.01.08
美好的一天





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский