Получение PID [D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
g-l-u-k © (2006-01-07 00:28:00)
Доброго времени суток.
Мой вопрос заключается в следующем, есть некий *.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:00) [1]
Используй ф-цию createprocess.
Наверх 
ЧАТ |
Орешник |
|
