Форум: "Потрепаться";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
