FreeBasic
Главная
Вход
Регистрация
Пятница, 29.03.2024, 10:48Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Вопросы по языку FreeBasic » Получить PID процесса по хэндлу окна (или путь до exe)
Получить PID процесса по хэндлу окна
WQДата: Четверг, 05.06.2014, 00:18 | Сообщение # 1
Полковник
Группа: Проверенные
Сообщений: 215
Репутация: 7
Статус: Offline
Имеется хэндл окна, требуется получить PID процесса, создавшего окно, или полный путь до exe-файла
Возможно, у кого-то есть пример такой функции
 
haavДата: Четверг, 05.06.2014, 11:30 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Код
#Include "windows.bi"
#Include "win/psapi.bi"

Dim msg As MSG
Dim As hwnd hwnd
Dim As integer pid
Dim As handle hProcess
Dim As ZString*128 szName

hwnd = CreateWindowEx(0,"#32770","",WS_VISIBLE Or WS_OVERLAPPEDWINDOW,100,100,300,300,0,0,0,0)

GetWindowThreadProcessId(hWnd, @pID)

hProcess = OpenProcess(PROCESS_ALL_ACCESS, TRUE,pID)

GetModuleFileNameEx(hProcess, NULL, @szName, MAX_PATH)

CloseHandle(hProcess)

MessageBox(0,"FileName = " & szName & !"\r\nPID=" & pID,"",0)

While GetMessage(@msg,0,0,0)
      DispatchMessage(@msg)
      If msg.message=WM_COMMAND Then Exit While
Wend


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
WQДата: Пятница, 06.06.2014, 10:55 | Сообщение # 3
Полковник
Группа: Проверенные
Сообщений: 215
Репутация: 7
Статус: Offline
Спасибо!
 
Форум » Freebasic » Вопросы по языку FreeBasic » Получить PID процесса по хэндлу окна (или путь до exe)
  • Страница 1 из 1
  • 1
Поиск: