[已解决]怎样在系统部署时获取正在运行的程序名或窗口名

学习一下

在系统部署时怎样获取正在运行的程序名或窗口名（不是进程名），试用窗口管理函数来获取无效。

yhxhappy

不太明白楼主的意思，希望以下代码对你有帮助

1. #include <WinAPI.au3>
   
2. #Include <WinAPIEx.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <GuiListView.au3>
   
5. 
   
6. ;创建主窗口
   
7. $GUI = GUICreate("EnumWindows",  1000, 700)
   
8. 
   
9. ;绘制并生成数据表
   
10. $listview = GUICtrlCreateListView("", 15, 10, 970, 640)
    
11.         _GUICtrlListView_SetExtendedListViewStyle($listview, BitOR($LVS_REPORT, $LVS_EX_FULLROWSELECT))
    
12.         _GUICtrlListView_AddColumn($listview, "窗口句柄", 85)
    
13.         _GUICtrlListView_AddColumn($listview, "窗口标题", 450)
    
14.         _GUICtrlListView_AddColumn($listview, "窗口文本", 250)
    
15.         ;_GUICtrlListView_AddColumn($listview, "CLASS", 50)
    
16.         _GUICtrlListView_AddColumn($listview, "PID", 55)
    
17.         _GUICtrlListView_AddColumn($listview, "进程名称", 100)
    
18. 
    
19. ;刷新按钮
    
20. $Installa_Button = GUICtrlCreateButton("刷新", 835, 655, 150, 35)       
    
21. 
    
22. AddListviewItem()
    
23. GUISetState()
    
24. 
    
25. While 1
    
26.     $msg = GUIGetMsg()
    
27.         Switch $Msg
    
28.         Case $GUI_EVENT_CLOSE
    
29.                 Exit
    
30.         Case $Installa_Button
    
31.                 AddListviewItem()
    
32.         EndSwitch
    
33. WEnd
    
34. 
    
35.        
    
36. Func AddListviewItem()
    
37.         _GUICtrlListView_DeleteAllItems($listview)
    
38.         $aWindows = _WinAPI_EnumWindows()
    
39.         For $i = 1 To $aWindows[0][0]
    
40.                 $WindowHandle = $aWindows[$i][0]
    
41.                 $WindowsClass = $aWindows[$i][1]
    
42.                 $WindowTitle = WinGetTitle($aWindows[$i][0])
    
43.                 $WindowText = WinGetText($aWindows[$i][0])
    
44.                 $ProcessPID = WinGetProcess($aWindows[$i][0])
    
45.                 $e = StringSplit(_WinAPI_GetModuleFileNameEx($ProcessPID), "")                          ;提取进程名称，也可以取进程的路径
    
46.                 $ProcessName = $e[$e[0]]
    
47.                 If $WindowTitle <> "" Then GUICtrlCreateListViewItem($WindowHandle & "|" & $WindowTitle& "|" & $WindowText & "|" & $ProcessPID & "|" & $ProcessName, $listview)                  ;如果窗口标题为空，则不添加进表格，去掉判断则会全部添加
    
48.         Next
    
49. EndFunc

复制代码

学习一下

回复 2# yhxhappy

谢谢你的帮助，在你的源码中找到了我需要的