Получение PID

← →
g-l-u-k © (2006-01-07 00:28) [0]

Доброго времени суток.
Мой вопрос заключается в следующем, есть некий *.exe файл, мне нужно запустить и затем получить Process ID запущенного процесса. Как это можно сделать? Чтобы получить PID, я делал так:
Var Wh,pid,ph:integer; …… Begin wh:=findwindowex(0,0,0,pchar(edit1.text)); pid:=getwindowthreadprocessid(wh,@pid); ph:=OpenProcess(PROCESS_VM_READ,false,pid); closehandle(wh);

Пытался сделать так, но ничего не вышло:
Var Wh,pid,ph:integer; H:Thandle; …… Begin H:=createfile(pchar(editFileName.text),GENERIC_READ,0,nil,OPEN_EXISTING,0,0); wh:=findwindowex(0,0,0,pchar(h)); pid:=getwindowthreadprocessid(wh,@pid); ph:=OpenProcess(PROCESS_VM_READ,false,pid); closehandle(wh);

Помогите пожалуйста.

← →
Delphi_is_cool © (2006-01-07 00:58) [1]

Используй ф-цию createprocess.

Получение PID Найти похожие ветки