Получение имени процесса по его ID

[Johnson]

Здравствуйте, уважаемые!

Подскажите, как получить имя процесса (.exe файла), зная его pID?

Пытаюсь вот так, но ничего не получается:

                Wnd := GetWindow(Handle, gw_HWndFirst);
                while Wnd <> 0 do begin
                  GetWindowThreadProcessId(Wnd,tempID);
                  if wParam=tempID  then begin //в wParam передаётся pID процесса нужного
                    GetWindowText(Wnd, buff, sizeof(buff));
                    {Действия}
                  end;
                  Wnd := GetWindow(Wnd, gw_hWndNext);
                end;

PS: pID отлавливаю и отсылаю мессагой из библиотеки:

SendMessage(SWnd, WM_EVENT1, GetCurrentProcessID, LParam);

2Moderator: не надо перемещать тему в раздел API, это больше по Delphi вопрос, а не по API...

[raxp]

тут полный путь к запущенному процессу, но никто не мешает оставить только имя

[Johnson]

дело не в том... тут я вобще просто заголовок окна получаю...
дело в том, что цсловие if wParam=tempID then не выполняется... и не могу понять почему

[raxp]

словие if wParam=tempID then не выполняется... и не могу понять почему

проверяйте совпало-ли ваше tempID с pid-ом диспетчера задач или другого tasklist, если совпало значит wparam не тот... отсюда не видно откуда вы его и как

[Johnson]

Сообщение от raxp

проверяйте совпало-ли ваше tempID с pid-ом диспетчера задач или другого tasklist, если совпало значит wparam не тот... отсюда не видно откуда вы его и как

совпало, условие выполняется...косяк в другом месте был... подскажите, как получить имя процесса (путь и имя .exe файла)

[raxp]

... пост up#2

[Johnson]

извиняюсь, мозг уже кипит, линк не заметил...