Путь к исполняемому файлу от активного окна

[Space]

Как получить путь к исполняемому файлу проги, которая показывает активное в данный момент окно?

[Хакер]

Получить хендл окна, получить идентификатор процесса, получить хендл (или облом, из-за нехватки прав) процесса, узнать имя файла.

В поиск!

[Space]

OpenProcess - с каким флагом dwDesiredAccess его лучше вызывать и что такое дескриптор наследования?

[Space]

Вылетает ошибка - Параметр задан неверно.

Код: Выделить всё

    hActiveWnd = GetForegroundWindow
    StrangerTreadID = GetWindowThreadProcessId(hActiveWnd, 0)
    lRet = OpenProcess(PROCESS_VM_READ Or PROCESS_QUERY_INFORMATION, 0, StrangerTreadID)
Debug.Print "Err.Description = "; GetErrorString(Err.LastDllError)

[Space]

хендл процесса получил. Но теперь путь не выдаёт, хотя операция завершается успешно

Код: Выделить всё

    StrangerTreadID = GetWindowThreadProcessId(hActiveWnd, ProcessID)
    lRet = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
'Debug.Print "Err.Description = "; GetErrorString(Err.LastDllError)
    If lRet > 0 Then
     sTemp = Space(MAX_PATH)
     GetModuleFileName lRet, sTemp, Len(sTemp)

[Space]

есть кто в танке?

[arvitaly]

Примеров миллион, почему сам не ищешь?

[Space]

Ну я же написал пример, почему не пашет? На дельфях и т.д. работает...

[arvitaly]

Код: Выделить всё

Public Function getForegroundHwndPathName() As String
Dim cbNeeded As Long
Dim Modules(1 To 200) As Long
Dim nSize As Long
Dim lRet As Long
Dim ModuleName As String
Dim hProcess As Long
Dim hwnd As Long, tid As Long, pid As Long

    hwnd = GetForegroundWindow 
    tid = GetWindowThreadProcessId(hwnd, pid)   
    If pid = 0 Then getForegroundHwndPathName = "[System Idle Process]": Exit Function
    If pid = 4 Then getForegroundHwndPathName = "[System]": Exit Function
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, pid)
    If hProcess <> 0 Then
        lRet = EnumProcessModules(hProcess, Modules(1), 200, cbNeeded)
        If lRet <> 0 Then
            ModuleName = Space(MAX_PATH)
            nSize = MAX_PATH
            lRet = GetModuleFileNameExA(hProcess, Modules(1), ModuleName, nSize)
            If CBool(InStr(1, (Left(ModuleName, lRet)), "", vbTextCompare)) Then
                getForegroundHwndPathName = Left(ModuleName, lRet)
            End If
        End If
    End If
    CloseHandle hProcess
End Function

[Viper] :: Для выделения кода есть специальный тэг code. Не забываем им пользоваться!

[Space]

почему мой код не работает?

[arvitaly]

GetModuleFileName http://msdn.microsoft.com/en-us/library ... 85%29.aspx

The module must have been loaded by the current process.

[Space]

1.А что это за модули такие у процесса?
2.Зачем читать 200 модулей, когда нужен и используется далее только один Modules(1)?

Код: Выделить всё

lRet = EnumProcessModules(hProcess, Modules(1), 200, cbNeeded)

3.что за сложная конструкция

Код: Выделить всё

If CBool(InStr(1, (Left(ModuleName, lRet)), "", vbTextCompare)) Then

чем не подходит просто

Код: Выделить всё

Left(ModuleName, lRet)

?

[Space]

есть кто в танке?