[*:dbje01cx]Script's own process identifier
[*:dbje01cx] Parent process ID of a process (the caller application)
[*:dbje01cx] Process name by process ID (filename without path)
[*:dbje01cx] Thread count by process ID (number of threads created by process)
[*:dbje01cx] Full filename by process ID (Modified version of shimanov's GetModuleFileNameEx() function)
; ProcessInfo.ahk - Function library to retrieve various application process informations: ; - Script's own process identifier ; - Parent process ID of a process (the caller application) ; - Process name by process ID (filename without path) ; - Thread count by process ID (number of threads created by process) ; - Full filename by process ID (GetModuleFileNameEx() function) ; ; Tested with AutoHotkey 1.0.46.10 ; ; Created by HuBa ; Contact: http://www.autohotkey.com/forum/profile.php?mode=viewprofile&u=4693 ; ; Portions of the script are based upon the GetProcessList() function by wOxxOm ; (http://www.autohotkey.com/forum/viewtopic.php?p=65983#65983) GetCurrentProcessID() { Return DllCall("GetCurrentProcessId") ; http://msdn2.microsoft.com/ms683180.aspx } GetCurrentParentProcessID() { Return GetParentProcessID(GetCurrentProcessID()) } GetProcessName(ProcessID) { Return GetProcessInformation(ProcessID, "Str", 260, 36) ; TCHAR szExeFile[MAX_PATH] } GetParentProcessID(ProcessID) { Return GetProcessInformation(ProcessID, "UInt *", 4, 24) ; DWORD th32ParentProcessID } GetProcessThreadCount(ProcessID) { Return GetProcessInformation(ProcessID, "UInt *", 4, 20) ; DWORD cntThreads } GetProcessInformation(ProcessID, CallVariableType, VariableCapacity, DataOffset) { hSnapshot := DLLCall("CreateToolhelp32Snapshot", "UInt", 2, "UInt", 0) ; TH32CS_SNAPPROCESS = 2 if (hSnapshot >= 0) { VarSetCapacity(PE32, 304, 0) ; PROCESSENTRY32 structure -> http://msdn2.microsoft.com/ms684839.aspx DllCall("ntdll.dll\RtlFillMemoryUlong", "UInt", &PE32, "UInt", 4, "UInt", 304) ; Set dwSize VarSetCapacity(th32ProcessID, 4, 0) if (DllCall("Process32First", "UInt", hSnapshot, "UInt", &PE32)) ; http://msdn2.microsoft.com/ms684834.aspx Loop { DllCall("RtlMoveMemory", "UInt *", th32ProcessID, "UInt", &PE32 + 8, "UInt", 4) ; http://msdn2.microsoft.com/ms803004.aspx if (ProcessID = th32ProcessID) { VarSetCapacity(th32DataEntry, VariableCapacity, 0) DllCall("RtlMoveMemory", CallVariableType, th32DataEntry, "UInt", &PE32 + DataOffset, "UInt", VariableCapacity) DllCall("CloseHandle", "UInt", hSnapshot) ; http://msdn2.microsoft.com/ms724211.aspx Return th32DataEntry ; Process data found } if not DllCall("Process32Next", "UInt", hSnapshot, "UInt", &PE32) ; http://msdn2.microsoft.com/ms684836.aspx Break } DllCall("CloseHandle", "UInt", hSnapshot) } Return ; Cannot find process } GetModuleFileNameEx(ProcessID) ; modified version of shimanov's function { if A_OSVersion in WIN_95, WIN_98, WIN_ME Return GetProcessName(ProcessID) ; #define PROCESS_VM_READ (0x0010) ; #define PROCESS_QUERY_INFORMATION (0x0400) hProcess := DllCall( "OpenProcess", "UInt", 0x10|0x400, "Int", False, "UInt", ProcessID) if (ErrorLevel or hProcess = 0) Return FileNameSize := 260 VarSetCapacity(ModuleFileName, FileNameSize, 0) CallResult := DllCall("Psapi.dll\GetModuleFileNameExA", "UInt", hProcess, "UInt", 0, "Str", ModuleFileName, "UInt", FileNameSize) DllCall("CloseHandle", hProcess) Return ModuleFileName }