Вывод списка и завершение процессов

@Vladislav717 · Регистрация: 03.12.2015

Студворк — интернет-сервис помощи студентам

Добрый день уважаемые господа. В универе дали курсовую работу, на тему управления процессами (получение списка, создание, завершение и тд).

У меня собственно первый вопрос. (Раньше я не работал в Borland C++).
Как получить список процессов в ListBox?

@Dinkin · 20.01.2016, 22:40

я бы хотел что бы вы Понял в чем ошибка, ведь от этого больше пользы будет =)

Вы не удалили строчку

C++
1
2
3
4
5
6
7
8
....
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TList *List = new TList;// <-ее надо было объявить глобально, а у вас она и глобально и локально (тоесть просто убрать эту строчку и все)
HWND h = Handle;
char buf[128];
List->Clear();
...

@Vladislav717 · 20.01.2016, 22:55 **[ТС]**

Dinkin, все работает. Но теперь проблема в том что выводит по заголовку окон, а нужно file.exe. И в придачу как-то через try catch сделать вывод сообщения успешно удалился процесс или ошибка, он защищен и тд. Ну и из списка соответственно пункт тоже удалять, либо вызвать получение заново.

Ну а так же осталось 2 последних пункта.

1. Вывод полного пути к файлу процесса.
2. Узнать текущий приоритет процесса.

Добавлено через 9 минут
Dinkin, все вышеперечисленное я сделал, кроме того что должно выводить по имени файла (file.exe). Осталось сделать только это:

Сообщение от Vladislav717

1. Вывод полного пути к файлу процесса.
2. Узнать текущий приоритет процесса.

Ну и конечно-же чтобы выводило file.exe, а не заголовок окна в списке.

@Dinkin · 20.01.2016, 22:57

1) Что бы убрать из списка,просто перегрузите список, типа так
Button1->Click();
2) Ранее в теме я Вам прислал код вывода пути в Memo по нажатию кнопки.
3) На форуме оч много примеров получения приоритета =)

@Vladislav717 · 20.01.2016, 23:07 **[ТС]**

Dinkin,

Сообщение от Dinkin

1) Что бы убрать из списка,просто перегрузите список, типа так
Button1->Click();
2) Ранее в теме я Вам прислал код вывода пути в Memo по нажатию кнопки.
3) На форуме оч много примеров получения приоритета =)

1. Готово
2. Путь выводит, однако не для всех процессов.
3. Не могу найти и не знаю как правильно использовать сторонние библиотеки.

Ну и осталось сделать чтобы выводило имя файла процесса, а не заголовок окна.

@Dinkin · 20.01.2016, 23:17

Тут такое дело,у процесса может в обще не быть окна, ....или если процессор был создан другим процессом, на прямую уже путь не проследите.

Добавлено через 3 минуты

C++
1
2
3
4
5
6
7
for ( bool ok(Module32First(ss, &lpme)); ok; ok = Module32Next(ss, &lpme) )
    {
       Memo1->Lines->Add(lpme.szModule);// Эта строка добавить имя исполняемого файла, если он у процесса есть
       Memo1->Lines->Add(lpme.szExePath);
       break;
 
    }

@Vladislav717 · 20.01.2016, 23:22 **[ТС]**

Dinkin, куда это вставлять и для чего оно вообще?!

@Dinkin · 20.01.2016, 23:26

На кнопку получения пути. Первым будет добавлен имя исполняющего, вторая строка путь

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Memo3->Clear();
 
DWORD  PID;
GetWindowThreadProcessId((HWND)List->Items[ListBox1->ItemIndex], &PID);
 HANDLE    ss(CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID));
  if ( ss != INVALID_HANDLE_VALUE )
  {
  MODULEENTRY32 lpme = { sizeof(MODULEENTRY32) };
 
  for ( bool ok(Module32First(ss, &lpme)); ok; ok = Module32Next(ss, &lpme) )
    {
       Memo3->Lines->Add(lpme.szModule);// Эта строка добавить имя исполняемого файла, если он у процесса есть
       Memo3->Lines->Add(lpme.szExePath);
       break;
    }
    CloseHandle(ss);
  }

@Vladislav717 · 20.01.2016, 23:31 **[ТС]**

Dinkin, так вы не поняли. Мне надо чтобы в самом списке (т.е ListBox) были не заголовки окон как сейчас, а имена исполняемых файлов.

@Dinkin · 20.01.2016, 23:47

ок
1) Добавьте к проекту следующую функцию

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
AnsiString ReturnName(int hw)
{
 DWORD  PID;
 GetWindowThreadProcessId((HWND)hw, &PID);
 HANDLE    ss(CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID));
  if ( ss != INVALID_HANDLE_VALUE )
  {
  MODULEENTRY32 lpme = { sizeof(MODULEENTRY32) };
 
    for ( bool ok(Module32First(ss, &lpme)); ok; ok = Module32Next(ss, &lpme) )
    {
       return lpme.szModule;
    }
    CloseHandle(ss);
  }
}
//---------------------------------------------------------------------------

Что бы она заработала, в h.вкладки пропишите ее здесь

C++
1
2
3
4
5
6
7
8
9
10
....
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
AnsiString ReturnName(int hw);//<----------------Вот тут вставить
//---------------------------------------------------------------------------
#endif

2) Далее, изменить код кнопки для построения процессов на следующий

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
oid __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND h = Handle;
AnsiString st;
wchar_t buf[128];//wchar_t
List1->Clear();
ListBox1->Items->Clear();
 do {
    h = GetNextWindow(h, GW_HWNDNEXT);
    GetWindowText(h, buf, 128);
 
    if (buf[0])
       {
        st=ReturnName((int)h);
        if(!st.IsEmpty() && ListBox1->Items->IndexOf(st)<0)
        {
            List1->Add(h);
            ListBox1->Items->Add(st);
        }
       }
 
    } while (h != NULL);
 ListBox1->ItemIndex = 0;
 ListBox1->Update();
}
//---------------------------------------------------------------------------

Он вам выведи только те процессы,котрые подходят под ваши критерии

@Vladislav717 · 21.01.2016, 02:06 **[ТС]**

Dinkin, вроде работает. Осталось только узнать приоритет. Только узнать, изменять его не требуется...

Добавлено через 28 минут
Так же, я не понял что вы тут имели ввиду и как это осуществить...

Сообщение от Dinkin

Что бы она заработала, в h.вкладки пропишите ее здесь

Добавлено через 1 час 34 минуты
Dinkin, все! Реализации вывода приоритета не требуется, почитал какую-то книгу на просторах гугла и реализовал вот таким вот методом. Не знаю правильный-ли он, но он работает! Главное сам сделал)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Вывод приоритета процесса
HANDLE ProcessHandle, ThreadHandle;
DWORD ProcessID = GetCurrentProcessId();
 
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS,false,PID);
Label2->Caption = GetPriorityClass(ProcessHandle);
ThreadHandle = GetCurrentThread();
SetThreadPriority(ThreadHandle,THREAD_PRIORITY_TIME_CRITICAL);
//Label2->Caption = GetThreadPriority(ThreadHandle);
switch(GetPriorityClass(ProcessHandle)){
 case 256: Label2->Caption = "Реального времени"; break;
 case 128: Label2->Caption = "Высокий"; break;
 case 32768: Label2->Caption = "Выше среднего"; break;
 case 32: Label2->Caption = "Обычный"; break;
 case 16384: Label2->Caption = "Ниже среднего"; break;
 case 64: Label2->Caption = "Низкий"; break;
 default: Label2->Caption = "Неизвестный";
}

Добавлено через 4 минуты
Dinkin, самое последнее что необходимо сделать это вывод полного списка процессов, а не так как вы мне предложили

Сообщение от Dinkin

Он вам выведи только те процессы,котрые подходят под ваши критерии

Мне нужны даже те, которые не подходят под критерии. Полный список всех exe процессов.

@Dinkin · 21.01.2016, 07:27

Сообщение от Vladislav717

Полный список всех exe процессов.

в первом варианте весь список вам давал, в последнем варианте выводит список только exe))

PS, У Вас то сначала все работает,а после вы не понимаете что имелось введу

@Vladislav717 · 21.01.2016, 21:30 **[ТС]**

Dinkin, понимаете в чем проблема...

Сообщение от Dinkin

в последнем варианте выводит список только exe))

какраз таки далеко не всех. Из 98 процессов в системе, из которых примерно 40 exe-шных, видит только 7-8.
А должно видеть все, как в диспетчере задач.

@volvo · 22.01.2016, 00:20

Кто ж процессы ищет перечислением окон верхнего уровня?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    HANDLE snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (snap == INVALID_HANDLE_VALUE) return;
    PROCESSENTRY32 pe = {0};
    pe.dwSize = sizeof(pe);
 
    if (!Process32First(snap, &pe))
    {
        CloseHandle(snap);
        return;
    }
 
    do
    {
        if (pe.th32ProcessID != 0)
            // if (ListBox1->Items->IndexOf(pe.szExeFile) == -1)
                ListBox1->Items->Add(pe.szExeFile);
    }
    while (Process32Next(snap, &pe));
    CloseHandle(snap);

- будут тебе все процессы

@Vladislav717 · 22.01.2016, 02:42 **[ТС]**

volvo,

Сообщение от volvo

- будут тебе все процессы

Данный пример не работает с тем кодом, который у меня есть!

@nick42 · 22.01.2016, 09:10

Сообщение от Vladislav717

Данный пример не работает

А #include <tlhelp32.h> добавили перед компиляцией? Если у меня на BCB5 работает, то и в остальных должно пахать... .

@Dinkin · 22.01.2016, 09:12

Сообщение от Dinkin

2) В h файле добавляешь #include <tlhelp32.h>

Да первым делом ему пришлось бы подключать, иначе бы он и раньше не смог собрать).

@nick42 · 22.01.2016, 11:44

Возможно.
Вот не придумаю, как в такой записи__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button2Click(TObject *Sender)
{ 
    HANDLE snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (snap == INVALID_HANDLE_VALUE) return;
    PROCESSENTRY32 pe = {0};
    pe.dwSize = sizeof(pe);
    if (!Process32First(snap, &pe)) { CloseHandle(snap); return; }
    do { if (pe.th32ProcessID != 0)
        ListBox1->Items->Add(String().sprintf("%s%8c приоритет  %d",
              pe.szExeFile,' ', pe.pcPriClassBase));
    }  while  (Process32Next(snap, &pe));
    CloseHandle(snap);
}

табуляцию вставить и pe.pcPriClassBase расшифровать из цифровой формы. Идеи будут?

Добавлено через 1 час 18 минут
Ну, с табуляцией, похоже, разобрался... - нужно в свойствах листбокса TabWidth ,например, в 4, и добавить пару строк:

C++
1
2
    UINT iStops[2] = { 80, 120 };      
    SendMessage( ListBox1->Handle,LB_SETTABSTOPS,2,(long)iStops );

А вот с приоритетами пока никак; их там несколько: 4, 6, 8, 9, 11, 13...

Добавлено через 9 минут
Для приоритета потоков гугль дал такие значения:
4 Ожидающий
8 Нормальный
13 Высокий
24 Реальное время
но это, наверное, не совсем то

Добавлено через 9 минут
П.С. в диспетчере наблюдаются всего три уровня: низкий (4), средний (до 13) и высокий (13). Можно этим и ограничиться.

@Dinkin · 22.01.2016, 11:46

Наверное для автора топика нужно собрать целый проект и выложить, так как видимо у него со сборкой периодически возникают трудности

@nick42 · 22.01.2016, 12:15

Сообщение от Vladislav717

Как получить список процессов в ListBox?

с учетом описанных извращений...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::Button2Click(TObject *Sender)
{       //   #include <tlhelp32.h>
    UINT iStops[2] = { 90, 160 };  String G ;
    SendMessage( ListBox1->Handle,LB_SETTABSTOPS,2,(long)iStops );
    HANDLE snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (snap == INVALID_HANDLE_VALUE) return;
    PROCESSENTRY32 pe = {0};
    pe.dwSize = sizeof(pe);
    if (!Process32First(snap, &pe)) { CloseHandle(snap); return; }
    do { if (pe.th32ProcessID != 0)  {
      if(pe.pcPriClassBase <5L) G = "низкий";
      if(pe.pcPriClassBase >4L) G = "ниже среднего";
      if(pe.pcPriClassBase >6L) G = "средний";
      if(pe.pcPriClassBase >8L) G = "выше среднего";
      if(pe.pcPriClassBase>12L) G = "высокий";
      if(pe.pcPriClassBase>23L) G = "реального времени";
      ListBox1->Items->Add(String().sprintf("%s\t %s",pe.szExeFile,G)); }
    }  while  (Process32Next(snap, &pe));
    CloseHandle(snap);
}

@Vladislav717 · 22.01.2016, 13:39 **[ТС]**

Сообщение от Dinkin

Наверное для автора топика нужно собрать целый проект и выложить, так как видимо у него со сборкой периодически возникают трудности

Был бы очень благодарен, на данный момент выложу полный рабочий проект. Допилить бы только чтобы все exe процессы было видно...

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

Вывод списка и завершение процессов

Решение

Решение

@Vladislav717 7 / 7 / 3 Регистрация: 03.12.2015 Сообщений: 113

	Вывод списка и завершение процессов 03.12.2015, 19:18. Показов 9871. Ответов 60 Метки process, процессы, список (Все метки) Добрый день уважаемые господа. В универе дали курсовую работу, на тему управления процессами (получение списка, создание, завершение и тд). У меня собственно первый вопрос. (Раньше я не работал в Borland C++). Как получить список процессов в ListBox? 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,184 Записей в блоге: 3
	20.01.2016, 22:57
	1) Что бы убрать из списка,просто перегрузите список, типа так Button1->Click(); 2) Ранее в теме я Вам прислал код вывода пути в Memo по нажатию кнопки. 3) На форуме оч много примеров получения приоритета =) 0

@Vladislav717 7 / 7 / 3 Регистрация: 03.12.2015 Сообщений: 113
	20.01.2016, 23:22 [ТС]
	Dinkin, куда это вставлять и для чего оно вообще?! 0

@Vladislav717 7 / 7 / 3 Регистрация: 03.12.2015 Сообщений: 113
	20.01.2016, 23:31 [ТС]
	Dinkin, так вы не поняли. Мне надо чтобы в самом списке (т.е ListBox) были не заголовки окон как сейчас, а имена исполняемых файлов. 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,184 Записей в блоге: 3
	22.01.2016, 11:46
	Наверное для автора топика нужно собрать целый проект и выложить, так как видимо у него со сборкой периодически возникают трудности 0