현재 vb6에서 실행중인 프로세스의 파일 이름을 얻는 방법

Question

Excel이나 Word 프로세스 등에서 현재 열려있는 파일을 찾는 방법이 있습니까? Windows에서 실행중인 모든 프로세스 목록과 현재 열려있는 파일 목록을 가져 오려고합니다.

Answer 1

이유가 무엇입니까, 왜 vb6을 사용합니까?

편집 : http://wiki.robotz.com/index.php/Process_List_and_Locate_VB6

Answer 2

방법을 사용하여 실행중인 프로세스의 목록에 대한 : VB6에서 프로세스 목록을 얻는 방법을 몇 가지 예와, 그 당신을 도울 것입니다, 그러나 여기 링크가있는 경우 는 모르겠지만, 아마도 열려있는 창 목록이 더 유용 할 수 있습니다 http://www.windowsadminscripts.com/coding/networking/processes/

: VBA

Function getProcessInfo() 
''On Error Resume Next 
Dim objProcess, process, strNameOfUser 
ComputerName = "." 
Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}\\" _ 
     & ComputerName & "\root\cimv2").ExecQuery("Select * From Win32_Process") 
For Each process In objProcess 
    If process.Name <> "System Idle Process" And process.Name <> "System" Then 
     ''Debug.Print process.Name 
     Debug.Print process.Name & "," & process.executablepath _ 
      & "," & process.Priority & "," & process.sessionid _ 
      & "," & strNameOfUser & "," & process.handlecount _ 
      & "," & process.ThreadCount 
    End If 
Next 

Set objProcess = Nothing 
End Function 

은 수정

Private Const GW_HWNDNEXT = 2 
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 

Sub ListWins(Optional Title = "*", Optional Class = "*") 
    Dim hWndThis As Long 
    hWndThis = FindWindow(vbNullString, vbNullString) 
    While hWndThis 
     Dim sTitle As String, sClass As String 
     sTitle = Space$(255) 
     sTitle = Left$(sTitle, GetWindowText(hWndThis, sTitle, Len(sTitle))) 
     sClass = Space$(255) 
     sClass = Left$(sClass, GetClassName(hWndThis, sClass, Len(sClass))) 
     If sTitle Like Title And sClass Like Class Then 
      Debug.Print sTitle, sClass 
     End If 
     hWndThis = GetWindow(hWndThis, GW_HWNDNEXT) 
    Wend 
End Sub 

과 같이 그것을 사용 :

ListWins "*.doc*" 

이 포함 된 제목 .DOC