论坛风格切换切换到宽版
  • 2148阅读
  • 5回复

请教老虎版主有没有64位系统检测进程和关闭进程的方法? [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-25
请教老虎版主有没有64位系统检测进程及关闭进程的方法?
我只知道有 psvince 和 istask 这两个插件,但是按照这两个插件的示例做,在64为系统下并不能检测到进程,没测试能否关闭进程?

还有就是下面这一段代码能检测到进程:
  1. function IsAppRunning(const FileName : string): Boolean;
  2. var
  3.     FSWbemLocator: Variant;
  4.     FWMIService   : Variant;
  5.     FWbemObjectSet: Variant;
  6. begin
  7.     Result := false;
  8.     FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
  9.     FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
  10.     FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
  11.     Result := (FWbemObjectSet.Count > 0);
  12.     FWbemObjectSet := Unassigned;
  13.     FWMIService := Unassigned;
  14.     FSWbemLocator := Unassigned;
  15. end;

请教老虎版主,在64位系统有什么检测及关闭进程的方法?
附件:两个插件 Desktop.zip (57 K) 下载次数:2

离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-25
还没有去研究这个
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 2 发表于: 2015-08-25
回 1楼(gnatix) 的帖子
gnatix:还没有去研究这个 (2015-08-25 15:12) 

哦,老虎版主您有空可以腾出点时间研究下么
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 3 发表于: 2015-08-26
回 1楼(gnatix) 的帖子
gnatix:还没有去研究这个 (2015-08-25 15:12) 

老虎版主,还想问一下可不可以通过上面能检测到进程的代码进一步实现关闭进程
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 4 发表于: 2015-08-26
我对这方面不是很熟悉,等以后遇到具体问题后再说吧。
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 5 发表于: 2015-08-27
回 4楼(gnatix) 的帖子