.參數 dwFlags, 整數型
.參數 th32ProcessID, 整數型.DLL命令 GetWindowThreadProcessId, 整數型, "user32"
.參數 hwnd, 整數型
.參數 lpdwProcessId, 整數型, 傳址.DLL命令 CloseHandle, 整數型, "kernel32"
.參數 hObject, 整數型.DLL命令 Module32First, 整數型, "KERNEL32.DLL"
.參數 hSnapshot, 整數型
.參數 lpme, MODULEENTRY32, 傳址.DLL命令 GetDesktopWindow, 整數型, "user32", "GetDesktopWindow".DLL命令 FindWindowEx, 整數型, "user32", "FindWindowExA"
.參數 hWnd1, 整數型
.參數 hWnd2, 整數型
.參數 lpsz1, 文本型
.參數 lpsz2, 文本型
.版本 2.子程序 句柄取進程文件名, 文本型
.參數 窗口句柄, 整數型
.局部變量 hModule, 整數型
.局部變量 進程標示符, 整數型
.局部變量 PID, 整數型
.局部變量 ModuleBuffer, MODULEENTRY32GetWindowThreadProcessId (窗口句柄, PID)
hModule = CreateToolhelp32Snapshot (#TH32CS_SNAPMODULE, PID)
ModuleBuffer.dwSize = 548
Module32First (hModule, ModuleBuffer)
CloseHandle (hModule)
返回 (到文本 (ModuleBuffer.szExePath))
.子程序 取目錄名稱, 文本型
.參數 文件路徑, 文本型返回 (取文本左邊 (文件路徑, 倒找文本 (文件路徑, “\”, , 假) - 1))
用法?1?7C9A(可以放在時鐘周期裏)調試輸出 (取目錄名稱 (句柄取進程文件名 (取鼠標所在窗口句柄 ())))