С++ Builder. Извлеч путь до Exe файла по PID его процесса

Вот код. http://purebasic.info/phpBB2/viewtopic.p...
Программа умеет определять путь у исполняемому файлу любой проги по ее окну.

Вот функции.

hwnd=ForegroundWindowGet() ; Узнаём хендл активного окна
PID=GetProcessPIDfromHWND(hwnd) ; Узнаём PID по хендлу
FileName.s=GetProcessName(PID) ; Узнаём имя проги, которой принадлежит активное окно
WindowName.s=GetWindowTitleEx(hWnd) ; Определяем заголовок по хендлу
Prioritet=GetProcessPrio(PID) ; Узнаём приоритет процесса