Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

NtQuerySystemInformation - Как получить PID ?   Найти похожие ветки 

 
AlexRush ©   (2003-06-30 20:40) [0]

Как получить ID процесса по имени(в частности WINLOGON.EXE) ?
{
Я этот вопрос в "WinAPI" задавал, да там за всю неделю активность - пост в час... Все сюда перебрались.. :-|
}


 
Vlad Oshin ©   (2003-06-30 20:51) [1]

procedure TForm1.Button1Click(Sender: TObject);
var hLib : DWORD;
Ptr : Pointer;
Cur : DWORD;

begin

lb.Items.Clear;
hLib := LoadLibrary("NTDLL.DLL");

if hLib>0 then

begin
@NtQSI := GetProcAddress(hLib,"NtQuerySystemInformation");
NtQSI(5,@Buf,20480,0);

Cur := 1;
Ptr := Addr(Buf[Cur]);
PrcInfo := Ptr;
lb.Items.Add(PrcInfo.pszProcessName+" -----> PID : "+ IntToStr(PrcInfo.dwProcessID));
repeat
Cur := Cur + PrcInfo.dwOffset;
Ptr := Addr(Buf[Cur]);
PrcInfo := Ptr;
lb.Items.Add(PrcInfo.pszProcessName+" -----> PID : "+ IntToStr(PrcInfo.dwProcessID));

// вот отсюда и плясать

until PrcInfo.dwOffset=0;
end;
FreeLibrary(hLib);

end;



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
3-55480
Vick
2003-06-25 17:47
2003.07.17
Создание таблицы с полями, у которых стоит значение по умолчанию


14-55763
AFrolov
2003-07-03 12:43
2003.07.17
Генерация чисел распределенных по нормальному закону


14-55727
Fredericco
2003-07-02 14:08
2003.07.17
1 Gbit Ethernet.


3-55427
KIR
2003-06-24 11:51
2003.07.17
Тип NUMERIC в IB


3-55461
Belocarsk
2003-06-25 12:27
2003.07.17
Маркер сортировки в столбце DBGrida как Outlooke