| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PID of process [D6]

oleggar ©   (2005-12-27 20:11:00) 

Помогите ,пожалуйста в Делфи ,найти имя процесса по его PID (не тот процесс ,что в разделе СЛУЖБЫ ,а тот ,что по ctrl+alt+del видно ) .Обыскал многие FAQ ,не нашел.И ,конечно,подойдет любой исходник на Delphi ,что показывает список процессов с именами и PID ,просил тут уже ,так и не нашли.

---

begin...end   (2005-12-27 20:41:00) [1]

> oleggar ©   (27.12.05 20:27) [3]

uses PsAPI;

var
 Id, H: Cardinal;
 FileName: array [0..MAX_PATH] of Char;
begin
 Id := ...;
 H := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, Id);
 if H <> 0 then
   try
     if GetModuleBaseName(H, 0, FileName, sizeof(FileName)) <> 0 then
       ShowMessage(FileName)
   finally
     CloseHandle(H)
   end
 else
   RaiseLastOSError
end

---

oleggar   (2005-12-27 20:27:00) [2]

имя процесса - имя exe файла или imagename для запущенного Exe .Система=только win2000/xp

---

begin...end   (2005-12-27 20:16:00) [3]

Уточните, что такое "имя процесса", и какая ОС интересует.

---

Джо   (2005-12-27 20:14:00) [4]

CreateToolhelp32Snapshot
Затем перебираешь процессы функциями Process32First и Process32Next.

---

Наверх