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

向下

如何查找所有正在运行的prog的名称(如在Ctrl + Alt + Del中) 找到类似的分支


Mike_Z   (2002-11-14 22:21) [0]

子 在最新的13.11.02发行版中,给出了以下代码:

过程TForm1.Button1Click(发送者:TObject); Var Wnd:hWnd; buff:ARRAY [0..127]个字符; 开始 ListBox1.Clear; Wnd:= GetWindow(句柄,gw_HWndFirst); 当Wnd <> 0开始时{不显示:} IF(Wnd <> Application.Handle)和{-自己的窗口} IsWindowVisible(Wnd)和{-不可见窗口} (GetWindow(Wnd,gw_Owner)= 0)和{-窗口的子类别} (GetWindowText(Wnd,buff,sizeof(buff))<> 0){-无标题} 然后开始 GetWindowText(Wnd,buff,sizeof(buff)); ListBox1.Items.Add(StrPas(buff)); 完了 Wnd:= GetWindow(Wnd,gw_hWndNext); 完了 ListBox1.ItemIndex:= 0; 结束

此代码显示当前正在运行的程序的窗口标题。 但是只有我本人推出的产品。 但是,三个收藏夹键会显示其图标在托盘中的那些程序。
问题编号1:如何也将它们推出?
问题编号2:对于所有这些标头,还应如何附加exe“与之对应的schnik?exe” schnick



Александр Павлов   (2002-11-15 05:39) [1]

用所有进程的列表填充listbox1:

使用TLHELP32; .... 过程TForm1.Button1Click(发送者:TObject); 变种 ProcessEntry:TProcessEntry32; 快照:处理; 开始 ListBox1.Items.BeginUpdate; ListBox1.Items.Clear; ListBox1.Items.EndUpdate; 如果SnapShot> 0,则使用CloseHandle(SnapShot); 快照:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0); ProcessEntry.dwSize:= SizeOf(ProcessEntry); 如果是Process32First(SnapShot,ProcessEntry),则 重复 ListBox1.Items.Add(ProcessEntry.szExeFile); 直到没有Process32Next(SnapShot,ProcessEntry); 结束



Александр Павлов   (2002-11-15 05:41) [2]

仅在9x下有效。 在NT / XP下-请参阅PSAPI.DLL。



Mike_Z   (2002-11-15 16:39) [3]

>亚历山大·帕夫洛夫:不是。
显然这个问题被问不清楚。 按Ctrl + Alt + Del并查看将显示给您的内容。 我可以获得exe文件“ shnikov;也有Windows列表(这是上面的2代码)。问题是如何将它们连接在一起。也就是说,例如, “ Delphi 5-Project 1” (名称)和 “ C:\ Delphi 5 \ Bin \ Delphi32.exe” (运行文件的名称)?



Игорь Шевченко   (2002-11-15 16:52) [4]

储藏室中的EnumFunction(“现成程序”部分)



Mike_Z   (2002-11-16 00:43) [5]

??? ??? ??????,?? ??? ?????? ?????? ??? (???? ??????????????????????????????????)。 ? ??? ?????? (????????) ?????????



Mike_Z   (2002-11-16 00:52) [6]

赦免
程序很好(模块也不错)。 但是它实现了代码编号1,并且您需要链接代码编号1 +代码编号2,以便窗口和文件名同时显示并相互匹配。



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

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

楼上









内存:0.57 MB
时间:0.017 c
6-1852年
romych
2002-11-05 14:10
2003.01.02
需要帮助,建议


1-1813年
id_privin
2002-12-20 17:08
2003.01.02
两个UI线程


4-1936年
福克斯
2002-11-16 13:00
2003.01.02
кто знает как отформатировать дискету?


6-1848年
nickolayLI
2002-10-21 07:16
2003.01.02
使用给定端口在网络上找到独轮车


1-1787年
smok_er
2002-12-20 12:27
2003.01.02
ReadLn并移动到文件的开头





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