VPF::Запущеные процессы - Форум программистов

SoWa

Дата 6.2.2005, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Тут несколько задач возникло:
- Получить список запущеных процессов(именно процессов, а не программ)
- Зная имя процесса, определить, какой он: SYSTEM, пользовательский или Local Servce, Network Service???

--------------------

Всем добра smile

Slawanix

Дата 7.2.2005, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 29.7.2004
Где: г. Великие Луки

Репутация: нет
Всего: 1

Цитата(SoWa @ 6.2.2005, 17:21)

Получить список запущеных процессов(именно процессов, а не программ)

Код


function IsRunning( sName : string ) : boolean;  
var  
  han : THandle;  
  ProcStruct : PROCESSENTRY32; // from "tlhelp32" in uses clause  
  sID : string;  
begin  
  Result := false;  
  // Get a snapshot of the system  
  han := CreateToolhelp32Snapshot( TH32CS_SNAPALL, 0 );  
  if han = 0 then  
    exit;  
  // Loop thru the processes until we find it or hit the end  
  ProcStruct.dwSize := sizeof( PROCESSENTRY32 );  
  if Process32First( han, ProcStruct ) then  
    begin  
      repeat  
        sID := ExtractFileName( ProcStruct.szExeFile );  
        // Check only against the portion of the name supplied, ignoring case  
        if uppercase( copy( sId, 1, length( sName ) ) ) = uppercase( sName ) then  
          begin  
            // Report we found it  
            Result := true;  
            Break;  
          end;  
      until not Process32Next( han, ProcStruct );  
    end;  
  // clean-up  
  CloseHandle( han );  
end;

Юзай DRKB

--------------------

моск кипит

SoWa

Дата 8.2.2005, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Это я знаю! В DRKB и видел, но надо так:
В ListBox отобразить все процессы...

--------------------

Всем добра smile

p0s0l

Дата 8.2.2005, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Перенесенно из раздела Delphi

--------------------

С уважением, г-н Посол.

Marriage

Дата 13.2.2005, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2

SoWa
Поищи на форуме я качал проект, назывался KillProcess ...
Там все это есть ....
Поскольку я сейчас далеко от дома, код кинуть не могу ....: smile

--------------------

Praemonitus, praemunitus

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »