工控编程吧

标题: 上位机MFC检查动态库或程序是否被占用锁定源代码 [打印本页]

---

作者: qq263946146    时间: 2019-10-9 11:18
标题: 上位机MFC检查动态库或程序是否被占用锁定源代码

(, 下载次数: 2)

上传

点击文件名下载附件
例程界面如上，
点击浏览按钮可以打开指定的程序或动态库来检查是否文件被占用。
被占用则显示相关信息，如图。
下面是关键代码。

1. 
   
2. void CWhoSLockingDlg::OnBrowseDllName()
   
3. {
   
4.     CFileDialog oFileDialog(TRUE, // Open...
   
5.                                                         NULL, // default filename extension
   
6.                                                         GetDefaultFileName(), // initial filename
   
7.                                                         OFN_FILEMUSTEXIST|OFN_PATHMUSTEXIST, // options
   
8.                                                         "Executable Files (*.exe;*.dll;*.ocx)|*.exe; *.dll; *.ocx|All Files (*.*)|*.*||", // two filters for modules
   
9.                                                         this);
   
10.     if ( oFileDialog.DoModal() == IDOK ) {
    
11. 
    
12.         CString szModuleName=oFileDialog.GetPathName();
    
13. 
    
14.         SetDefaultFileName(szModuleName);
    
15. 
    
16.         (GetDlgItem(IDC_EDIT_MODULE_NAME))->SetWindowText(m_szDefaultFileName);
    
17. 
    
18.         // Force refresh list
    
19.         OnRefresh();
    
20.     }
    
21. }
    
22. 
    
23. void CWhoSLockingDlg::OnRefresh()
    
24. {
    
25.     // Store filename for next call
    
26.     (GetDlgItem(IDC_EDIT_MODULE_NAME))->GetWindowText(m_szDefaultFileName);
    
27.     CString szModuleName = m_szDefaultFileName;
    
28. 
    
29.     // Find list of processes which loaded this module
    
30.     DWORD dwFoundPID = 0;
    
31.     int nRecords =0;
    
32.     int nItemPosition = -1;
    
33.     if (szModuleName.GetLength()) {
    
34. 
    
35.             CMapStringToString PIDNameMap;
    
36. 
    
37.         // Refresh GUI
    
38.             m_oListOfProcesses.DeleteAllItems();
    
39. 
    
40.         (GetDlgItem(IDC_MESSAGE_TEXT))->SetWindowText("Searching for process(es)...");
    
41.         CWaitCursor oWaiting;
    
42.                 if (m_oProcessAPI.BuildProcessList(PIDNameMap)) {
    
43. 
    
44.                         // Find this module in all processes
    
45.                         CMapStringToString oLoadingProcessMap;
    
46. 
    
47.                         if (m_oProcessAPI.GetProcessesLockingModule(szModuleName, PIDNameMap, oLoadingProcessMap)) {
    
48. 
    
49.                                 POSITION hProcessPosition = NULL;
    
50.                                 CString ProcessName;
    
51.                                 CString PIDString;
    
52.                                 CString szExecutablePath;
    
53.                                 CString szServiceName;
    
54. 
    
55.                                 hProcessPosition = oLoadingProcessMap.GetStartPosition();
    
56. 
    
57.                                 while ( hProcessPosition != NULL ) {
    
58. 
    
59.                                         // Get key ( PIDString ) and value ( ProcessName )
    
60.                                         oLoadingProcessMap.GetNextAssoc( hProcessPosition, PIDString, ProcessName );
    
61. 
    
62.                                         // Get executable path
    
63.                                         szExecutablePath = m_oProcessAPI.GetProcessExecutableName(atol(PIDString));
    
64. 
    
65.                                         // Get service name (if applicable)
    
66.                                         szServiceName = GetServiceName(szExecutablePath);
    
67. 
    
68.                                         // Add process entry in the listbox
    
69.                                         nItemPosition = m_oListOfProcesses.AddItem(nRecords,0,ProcessName);
    
70.                                         if (nItemPosition != -1) {
    
71.                                                 m_oListOfProcesses.AddItem(nItemPosition,1,PIDString);
    
72.                                                 m_oListOfProcesses.AddItem(nItemPosition,2,szExecutablePath);
    
73.                                                 m_oListOfProcesses.AddItem(nItemPosition,3,szServiceName);
    
74.                                         }
    
75. 
    
76.                                         nRecords++;
    
77.                                 }
    
78. 
    
79.                         }
    
80. 
    
81.                 } else {
    
82. 
    
83.                                 AfxMessageBox("Fatal error: cannot build list of processes",
    
84.                                                           MB_OK|MB_ICONERROR);
    
85. 
    
86.                 }
    
87. 
    
88.         CString szMessageText;
    
89.         if (nRecords == 0) {
    
90.             szMessageText = "No process found: This DLL is not locked.";
    
91.         } else {
    
92.             szMessageText.Format("%d process%s found.", nRecords, (nRecords<2?"":"es"));
    
93.         }
    
94.         (GetDlgItem(IDC_MESSAGE_TEXT))->SetWindowText(szMessageText);
    
95. 
    
96.     }
    
97. }
    

复制代码

源代码下载地址：
(, 下载次数: 0)

上传

点击文件名下载附件
[MFC408]1[/MFC408]
[halcon]1[/halcon]
[weixinlianxi]1[/weixinlianxi]

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4