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

@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 процессы было видно...

Новые блоги и статьи Все статьи Все блоги /
Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений
сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .

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

Решение

Решение

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

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

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