0

我找到了一个可以帮助我的一个项目的代码。但是我不能在我的 64 位 MS Access 中使用它。

这是原始帖子如何从进程名称中获取应用程序名称？

Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpdwProcessId 
As Int32) As Int32
Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr
'Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal 
lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
Private makel As String

Private Function GetActiveAppProcess() As Process
Dim activeProcessID As IntPtr
GetWindowThreadProcessId(GetForegroundWindow(), activeProcessID)
Return Process.GetProcessById(activeProcessID)
End Function

Sub GetProcInfo()
Dim activeProcess As Process = GetActiveAppProcess()
With activeProcess
    ApplicationName = .MainModule.FileVersionInfo.FileDescription
    ProcessName = .ProcessName
    WindowTitle = .MainWindowTitle
End With
End Sub
4

0 回答 0