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

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

Список процессов [D5, D6, D7]

novice ©   (2006-05-18 11:33:00) 

procedure CreateNTProcessList(List: TstringList);
var
PIDArray: array [0..1023] of DWORD;
cb: DWORD;
I: Integer;
ProcCount: Integer;
hMod: HMODULE;
hProcess: THandle;
ModuleName: array [0..300] of Char;
begin
if List = nil then Exit;
EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
ProcCount := cb div SizeOf(DWORD);
for I := 0 to ProcCount - 1 do
begin
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
    PROCESS_VM_READ,
    False,
    PIDArray[I]);
  if (hProcess <> 0) then
  begin
    EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
    GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
    List.Add(ModuleName);
    CloseHandle(hProcess);
  end;
end;
end;

Если запустить под учеткой с адм. правами - все нормально, а если под ограниченной, то в список не попадают процессы, запущенные от имени этой учетки. Как быть?

---

Игорь Шевченко   (2006-05-18 15:14:00) [1]

Выставить себе SeDebugPrivilege.


>   if (hProcess <> 0) then
>   begin
>    


else
 raiselastwin32error

---

manevil   (2006-05-18 14:29:00) [2]

вот очень интересная ссылочка:
http://www.rsdn.ru/article/qna/baseserv/enumproc.xml

---

manevil   (2006-05-18 14:10:00) [3]

ставь везде ХР ;)
а вообще-то куда потерялись настоящие мастера?

---

novice   (2006-05-18 13:51:00) [4]

Попробовал тоже на ХР - все работает как надо, а вот в 2к - нет. А у меня как раз большинство машин с 2к.

---

manevil   (2006-05-18 13:37:00) [5]

Проверял под Win XP. Создал юзера с ограниченными правами, на нем проверил - все процессы запущенные от его имени отображает

---

novice   (2006-05-18 13:09:00) [6]

Кстати, если под платформой 2к и ХР собирать процессы при помощи CreateToolhelp32Snapshot, т.е., как для вин98, то работает под любым пользователем, но вот убить процесс под неадминской учеткой все-равно не выходит. Явно дело тут в правах.

---

novice   (2006-05-18 12:59:00) [7]

> Вот это у меня работает:

Этот код ничем существенным не отличается от приведенного мной. Разве что, в одной процедуре идет ветвление по платформам. И что, у всех пользователей работает, независимо от их прав?

---

manevil   (2006-05-18 12:25:00) [8]

Вот это у меня работает:

procedure GetProcessList(var sl: TStrings);
var
 pe: TProcessEntry32;
 ph, snap: THandle; //дескрипторы процесса и снимка
 mh: hmodule; //дескриптор модуля
 procs: array[0..$FFF] of dword; //массив для хранения дескрипторов процессов
 count, cm: cardinal; //количество процессов
 i: integer;
 ModName: array[0..max_path] of char; //имя модуля
begin
 sl.Clear;
 if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
 begin //если это Win9x
   snap := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
   if integer(snap) = -1 then
   begin
     exit;
   end
   else
   begin
     pe.dwSize := sizeof(pe);
     if Process32First(snap, pe) then
       repeat
         sl.Add(string(pe.szExeFile));
       until not Process32Next(snap, pe);
   end;
 end
 else
 begin //Если WinNT/2000/XP
   if not EnumProcesses(@procs, sizeof(procs), count) then
   begin
     exit;
   end;
   for i := 0 to count div 4 - 1 do
   begin
     ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
       false, procs[i]);
     if ph > 0 then
     begin
       EnumProcessModules(ph, @mh, 4, cm);
       GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));
       sl.Add(string(ModName));
       CloseHandle(ph);
     end;
   end;
 end;
end;
Взято из DW.

---

novice   (2006-05-18 11:55:00) [9]

Программа, собирающая список запущенных процессов, запускается от имени админа. Запускается некая программа (допустим, 1С). В списке запущенных процессов будут разные winlogon, svchost и т.д., запущенные от имени System, Local Service, Network Service. Но кроме них, будет еще процесс 1Cv77.exe, запущенный от имени Admin. Если же эту программу запустить под учетной записью пользователя, то все вышеперечисленные системные процессы в списке фигурируют, а вот 1С (и другие, запущенные этим пользователем) - нет.

---

Elen   (2006-05-18 11:42:00) [10]

> novice


Можно проблему поподробнее?

---

Наверх