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

[brigval]

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

[tyomitch]

Вернулась пожилая учительница математики с курсов повышения
квалификации и решила первый урок провести по-новому, как на курсах
учили:
- Дети, давайте отойдем от старых методик и будем строить уроки иначе.
Вот, например. Посмотрите в окно. Видите, на ветке сидят 2 голубя и 4
воробья? Вопрос: сколько мне лет?
Класс обалдело молчит. Наконец Вовочка поднимает руку.
- Пятьдесят, - отвечает он.
- Правильно, - удивляется она. - А как ты это определил?
- У нас в доме живет парень один... Он полудурок...Так ему двадцать пять.

[BV]

tyomitch, это не в тему. Видимо, автор хочет получить путь к EXE по hWnd окна. GetModuleFileName.

[brigval]

tyomitch
С некоторых пор анекдоты про Вовочку в нашей стране не популярны

BV
Спасибо.
Для поиска имени нужного открытого окна я использую следующий код (часть кода)

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

lResult = GetWindowText(hwnd, sWndName, MAX_PATH)

После того как окно найдено, функция

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

Function ModuleName(ByRef hwnd As Long) As String
    Dim FileName As String, hInst As Long
    ModuleName = String$(128, Chr$(0))
    hInst = GetWindowWord(hwnd, GWW_HINSTANCE)
    ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
End Function

выдает путь к мому исполняемому файлу, а не файла, который создал окно.
Что здесь может быть не так? Или, есть ли еще способы?
Пример я нашел в интернете.
GWW_HINSTANCE=-6

[GSerg]

Есть ещё способы. GetModuleFileNameEx (2k и выше).
А также CreateToolhelp32Snapshot с последующим перебором.

[brigval]

Есть ещё способы. GetModuleFileNameEx (2k и выше).
А также CreateToolhelp32Snapshot с последующим перебором.

Надо и для W98.
С помщью функции CreateToolhelp32Snapshot смог получить только имя EXE-файла. А нужен путь, для доступа к файлам из директории с EXE файлом.
Посмотрел еще в интернете... Пишут, что для 95/98/Me функция действительно выдает полный путь, а для NT только имя файла EXE
А задача должна решаться для W98...XP

[GSerg]

GetWindowsVersion
If <=98 then CreateToolhelp32Snapshot else GetModuleFileNameEx.

[brigval]

GetWindowsVersion
If <=98 then CreateToolhelp32Snapshot else GetModuleFileNameEx.

Я уж тоже начал приходить к этому решению

Большое спасибо.

[tyomitch]

После того как окно найдено, функция

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

Function ModuleName(ByRef hwnd As Long) As String
    Dim FileName As String, hInst As Long
    ModuleName = String$(128, Chr$(0))
    hInst = GetWindowWord(hwnd, GWW_HINSTANCE)
    ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
End Function

выдает путь к мому исполняемому файлу, а не файла, который создал окно.
Что здесь может быть не так? Или, есть ли еще способы?
Пример я нашел в интернете.
GWW_HINSTANCE=-6

Вас обманули.

The GetWindowWord function is obsolete. It is provided only for compatibility with 16-bit versions of Windows. Win32-based applications should use the GetWindowLong function.

Зачем нужна GetModuleFileNameEx -- я не знаю. GetWindowModuleFileName работает в Win98+ без проблем.

[BV]

Или, есть ли еще способы?

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

Option Explicit

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowModuleFileName Lib "user32.dll" Alias "GetWindowModuleFileNameA" (ByVal hwnd As Long, ByVal pszFileName As String, ByVal cchFileNameMax As Long) As Long

Private Sub Form_Load()
    Dim strModuleName As String * 255
    Dim hFWnd As Long
   
    Call Shell(Environ$("WinDir") & Chr$(92) & "calc.exe", vbNormalFocus)
    hFWnd = FindWindow(vbNullString, "Калькулятор")
    strModuleName = Left$(strModuleName, GetWindowModuleFileName(hFWnd, _
        strModuleName, Len(strModuleName)))
   
    MsgBox strModuleName
End Sub

2 tyomitch

Я API написал по памяти, ошибся.

[brigval]

BV
К сожалению, пример с калькулятором выдает пустую строку. WinXP SP2 rus.
Да и в интернете однозачного отношения к GetWindowModuleFileName нет.

tyomitch
GetWindowLong не дало желаемого результата.

Видимо, вариант от GSerg

GetWindowsVersion
If <=98 then CreateToolhelp32Snapshot else GetModuleFileNameEx.

более надежный. И более для меня понятный.

Жаль, что попробовать в эти выходные не успел. Программирую на уровне любителя. Поэтому все незнакомое идет с большим трудом

[BV]

BV
К сожалению, пример с калькулятором выдает пустую строку. WinXP SP2 rus.
Да и в интернете однозачного отношения к GetWindowModuleFileName нет.

Ссылка
Столь длинные ссылки оформляем тэгами, дабы не разлезался топик.

Пример мой работает.

[brigval]

Вариант от GSerg

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

GetWindowsVersion
If <=98 then CreateToolhelp32Snapshot else GetModuleFileNameEx.

работает как часы. Еще раз всем спасибо за помощь.