Неверов Евгений Викторович
Меню сайта
Категории раздела
Программирование на языке Паскаль [27]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [18]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [0]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Прочее [0]
Свободная тематика
Мини-чат
200
Наш опрос
Чем Вы занимаетесь?
Всего ответов: 36
Статистика

Рейтинг@Mail.ru
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Программирование на Delphi [ Добавить статью ]

Список процессов
uses TLHelp32;

procedure TForm1.Button1Click(Sender: TObject);
var PE32: TProcessEntry32;
    ME32: TModuleEntry32;
    H, H1: THandle;
    s: string;
begin
   Memo1.Clear;
   H:=CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
   try
   PE32.dwSize:=SizeOf(PE32);
   ME32.dwSize:=SizeOf(ME32);
   If Process32First(H, PE32) then
   Repeat
      H1:=CreateToolhelp32Snapshot(TH32CS_SNAPALL, PE32.th32ProcessID);
      try
      s:=Format('PID: %d, PPID: %d', [PE32.th32ProcessID, PE32.th32ParentProcessID]);
      If Module32First(H1, ME32) and (PE32.th32ProcessID<>0) then
         s:=Format('%s, %s (%s)', [s, ME32.szExePath, ME32.szModule]) else
         s:=Format('%s, %s', [s, PE32.szExeFile]);
      finally
         CloseHandle(H1);
      end;
      Memo1.Lines.Add(s);
   Until not Process32Next(H, PE32);
   finally
      CloseHandle(H);
   end;
end;

Например, текст в Memo1 будет выглядеть следующим образом:

PID: 0, PPID: 0, [System Process]
PID: 4, PPID: 0, System
PID: 320, PPID: 4, smss.exe
PID: 484, PPID: 476, csrss.exe
PID: 540, PPID: 476, wininit.exe
PID: 556, PPID: 532, csrss.exe
PID: 608, PPID: 532, winlogon.exe
PID: 644, PPID: 540, services.exe
PID: 652, PPID: 540, lsass.exe
PID: 660, PPID: 540, lsm.exe
PID: 764, PPID: 644, svchost.exe
PID: 824, PPID: 644, nvvsvc.exe
PID: 848, PPID: 644, nvSCPAPISvr.exe
PID: 896, PPID: 644, svchost.exe
PID: 948, PPID: 644, MsMpEng.exe
PID: 488, PPID: 644, svchost.exe
PID: 380, PPID: 644, svchost.exe
PID: 880, PPID: 644, svchost.exe
PID: 1056, PPID: 644, svchost.exe
PID: 1112, PPID: 488, audiodg.exe
PID: 1140, PPID: 644, svchost.exe
PID: 1244, PPID: 644, svchost.exe
PID: 1436, PPID: 824, nvxdsync.exe
PID: 1444, PPID: 824, nvvsvc.exe
PID: 1512, PPID: 644, FBAgent.exe
PID: 1552, PPID: 380, wlanext.exe
PID: 1560, PPID: 484, conhost.exe
PID: 1568, PPID: 644, AsLdrSrv.exe
PID: 1596, PPID: 644, GFNEXSrv.exe
PID: 1744, PPID: 644, spoolsv.exe
PID: 1772, PPID: 644, svchost.exe
PID: 1796, PPID: 644, svchost.exe
PID: 2016, PPID: 644, armsvc.exe
PID: 1180, PPID: 644, BTHSAmpPalService.exe
PID: 1372, PPID: 644, InsOnSrv.exe
PID: 1676, PPID: 644, AVerRemote.exe
PID: 2028, PPID: 644, AVerScheduleService.exe
PID: 1476, PPID: 644, AVerUpdateServer.exe
PID: 2060, PPID: 644, BTHSSecurityMgr.exe
PID: 2112, PPID: 644, SkypeC2CAutoUpdateSvc.exe
PID: 2172, PPID: 644, taskhost.exe
PID: 2192, PPID: 1568, HControl.exe
PID: 2208, PPID: 1372, InsOnWMI.exe
PID: 2344, PPID: 1056, taskeng.exe
PID: 2396, PPID: 380, dwm.exe
PID: 2420, PPID: 2384, explorer.exe
PID: 2448, PPID: 2344, sensorsrv.exe
PID: 2460, PPID: 2344, LiveUpdate.exe
PID: 2472, PPID: 1056, taskeng.exe
PID: 2480, PPID: 644, SkypeC2CPNRSvc.exe
PID: 2520, PPID: 2472, C:\Program Files (x86)\ASUS\ATK Package\ATKOSD2\ATKOSD2.exe (ATKOSD2.exe)
PID: 2584, PPID: 644, svchost.exe
PID: 2688, PPID: 644, EvtEng.exe
PID: 2728, PPID: 1744, CNAB4RPD.EXE
PID: 2876, PPID: 2344, BatteryLife.exe
PID: 2932, PPID: 644, MDM.EXE
PID: 2960, PPID: 644, mbbService.exe
PID: 2412, PPID: 644, RegSrvc.exe
PID: 1564, PPID: 644, SeaPort.EXE
PID: 3308, PPID: 644, sftvsa.exe
PID: 3368, PPID: 644, svchost.exe
PID: 3432, PPID: 644, WLIDSVC.EXE
PID: 3524, PPID: 644, sftlist.exe
PID: 3560, PPID: 3432, WLIDSVCM.EXE
PID: 3672, PPID: 1676, C:\Program Files (x86)\Common Files\AVerMedia\AVerQuick\AVerHIDReceiver.exe (AVerHIDReceiver.exe)
PID: 4000, PPID: 644, CVHSVC.EXE
PID: 2316, PPID: 764, WmiPrvSE.exe
PID: 3992, PPID: 644, NisSrv.exe
PID: 4424, PPID: 764, unsecapp.exe
PID: 4692, PPID: 2192, ATKOSD.exe
PID: 4816, PPID: 2420, SynTPEnh.exe
PID: 4828, PPID: 2420, AmIcoSinglun64.exe
PID: 4840, PPID: 2420, RAVBg64.exe
PID: 4868, PPID: 2420, iFrmewrk.exe
PID: 4964, PPID: 2420, networx.exe
PID: 5004, PPID: 2420, hkcmd.exe
PID: 5012, PPID: 2420, igfxpers.exe
PID: 4584, PPID: 2420, msseces.exe
PID: 4516, PPID: 1436, nvtray.exe
PID: 4612, PPID: 2420, sidebar.exe
PID: 4384, PPID: 4816, SynTPHelper.exe
PID: 4880, PPID: 2420, C:\Users\Неверов\AppData\Roaming\Mail.Ru\Agent\magent.exe (magent.exe)
PID: 112, PPID: 644, SearchIndexer.exe
PID: 4604, PPID: 1512, C:\Program Files (x86)\ASUS\Splendid\ACMON.exe (ACMON.exe)
PID: 2356, PPID: 1512, C:\windows\AsScrPro.exe (AsScrPro.exe)
PID: 1576, PPID: 2420, C:\Program Files (x86)\Common Files\AVerMedia\AVerQuick\AVerQuick.exe (AVerQuick.exe)
PID: 5200, PPID: 764, C:\Windows\SysWOW64\ACEngSvr.exe (ACEngSvr.exe)
PID: 5520, PPID: 1512, C:\Program Files (x86)\CyberLink\Power2Go\CLMLSvc.exe (CLMLSvc.exe)
PID: 5552, PPID: 4600, C:\Program Files (x86)\ASUS\ASUS Sonic Focus\SonicFocusTray.exe (SonicFocusTray.exe)
PID: 5576, PPID: 4600, C:\Program Files (x86)\ASUS\ATK Package\ATK Media\DMedia.exe (DMedia.exe)
PID: 5640, PPID: 4600, C:\Program Files (x86)\ASUS\ATK Package\ATK Hotkey\HControlUser.exe (HControlUser.exe)
PID: 5668, PPID: 4600, C:\Program Files (x86)\ASUS\Wireless Console 3\wcourier.exe (wcourier.exe)
PID: 5704, PPID: 4600, C:\Program Files (x86)\CyberLink\PowerDVD10\PDVD10Serv.exe (PDVD10Serv.exe)
PID: 5996, PPID: 1512, RAVCpl64.exe
PID: 5956, PPID: 2192, KBFiltr.exe
PID: 5388, PPID: 764, unsecapp.exe
PID: 5488, PPID: 2192, WDC.exe
PID: 300, PPID: 4924, ps64ldr.exe
PID: 4332, PPID: 556, conhost.exe
PID: 6076, PPID: 764, explorer.exe
PID: 5716, PPID: 644, LMS.exe
PID: 6072, PPID: 644, UNS.exe
PID: 6120, PPID: 2420, networx.exe
PID: 1404, PPID: 644, PresentationFontCache.exe
PID: 4560, PPID: 5972, taskmgr.exe
PID: 3380, PPID: 644, svchost.exe
PID: 8252, PPID: 7480, C:\Program Files (x86)\Common Files\microsoft shared\virtualization handler\cvh.exe (cvh.exe)
PID: 4940, PPID: 8252, C:\Program Files (x86)\Common Files\microsoft shared\virtualization handler\OfficeVirt.exe (OfficeVirt.exe)
PID: 6844, PPID: 644, OSPPSVC.EXE
PID: 8468, PPID: 4516, C:\Program Files (x86)\NVIDIA Corporation\Update Core\NvBackend.exe (NvBackend.exe)
PID: 5604, PPID: 6076, C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe (AcroRd32.exe)
PID: 9428, PPID: 764, dllhost.exe
PID: 2088, PPID: 2420, C:\Program Files (x86)\Borland\Delphi6\Bin\delphi32.exe (delphi32.exe)
PID: 10328, PPID: 6076, notepad.exe
PID: 10468, PPID: 2088, E:\Мои программы\Newerow1989\Delphi\Project1.exe (Project1.exe)
Категория: Программирование на Delphi | Добавил: newerow1989 (14.08.2016 13:55 )
Просмотров: 127 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2018
    Автор этого сайта: Неверов Евгений Викторович

    Мои координаты
    Бесплатный конструктор сайтов - uCozЯндекс.Метрика