Перечислить процессы и завершить их

Delphi , Программа и Интерфейс , Процессы и Сервисы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  With the following routines it ist simply easy to kill a running process. 
  First build a form with a TListview with 3 columns and a TButton 
  to refresh the running processes. 
  Attach the Refreshclick-procedure to the TButton and the 
  ListViewDblClick-procedure with the TListview 
  The TListview shows the processes. 
  With a Doubleclick on one of the processnames you can kill this running process. 
  Don't forget to include TLHelp32 into your uses-clause! 

  Mit der nachfolgend aufgefuhrten Routinen konnen Sie die in einer 
  Windowssitzung laufenden Prozesse aufzeigen und bei Bedarf auch 
  entfernen. Hierfur benotigen Sie ein Formobject, ein ListViewobject und zu- 
  mindest ein ButtonObject. Verknupfen Sie das Buttonobject mit dem BtnRefreshClick 
  damit gleich beim Start des Programms alle Prozesse angezeigt werden. 
  Zum loschen eines Prozesses mussen Sie eine Verknupfung zwischen DblClick 
  des Listviewobject mit der Procedure ListviewDblClick. 
  Wie aus den beigefugten Routinen ersichtlich, kann auch ein einzelner Prozess 
  gesucht und terminiert werden. Die hierzu erforderlichen Schritte konnen aus 
  der Refreshroutine entnommen werden. 
  Wichtig ist die Einbindung der Unit TlHelp32 ! 
}

 interface

 uses
  {...,}TLHelp32 {important !}

 // Global Variables, Globale Variablen 

var
   aSnapshotHandle: THandle;
   aProcessEntry32: TProcessEntry32;

    implementation

 procedure TForm1.BtnRefreshClick(Sender: TObject);
 var
   i: Integer;
   bContinue: BOOL;
   NewItem: TListItem;
 begin
   ListView1.Items.Clear;
   aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
   bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
   while Integer(bContinue) <> 0 do
   begin
     NewItem := ListView1.Items.Add;
     NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
     NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
     NewItem.subItems.Add(aProcessEntry32.szExeFile);
     bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
   end;
   CloseHandle(aSnapshotHandle);
 end;


 procedure TForm1.ListView1DblClick(Sender: TObject);
 var
   Ret: BOOL;
   PrID: Integer; // processidentifier 
  Ph: THandle;   // processhandle 
begin
   with ListView1 do
   begin
     if MessageDlg('Do you want to Terminate "' + ItemFocused.Caption + '"?' + ^J +
                   'It''s possible the system becames instable or out of' + ^J +
                   'control......',
         mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        PrID := StrToInt('$' + ItemFocused.SubItems[0]);
        Ph := OpenProcess(1, BOOL(0), PrID);
        Ret := TerminateProcess(Ph, 0);
        if Integer(Ret) = 0 then
          MessageDlg('Cannot terminate "' + ItemFocused.Caption + '"',
                      mtInformation, [mbOK], 0)
        else
          ItemFocused.Delete;
      end;
    end;
 end;


 procedure TForm1.FormCreate(Sender: TObject);
 begin
   { 
    ListView1.Columns.Add; 
    ListView1.Columns.Add; 
    ListView1.Columns.Add; 
    ListView1.ViewStyle := vsReport; 
  }
   BtnRefresh.Click;
 end;

 {Only Win95/Win98/ME}

Программный код на Delphi, который отображает список запущенных процессов на Windows-системе и позволяет пользователю прервать их работу. Вот разбивка процедур:

1. BtnRefreshClick:
   • Очищает список элементов в контроле списка (ListView1).
   • Создает снимок всех запущенных процессов с помощью функции CreateToolhelp32Snapshot.
   • Перебирает каждый элемент процесса в снимке, добавляя новый элемент в список для каждого из них.
   • Каждый элемент отображает имя процесса, ID и путь к исполняемому файлу.
2. ListView1DblClick:
   • Обрабатывает событие двойного клика по элементам списка.
   • Отображает диалоговое окно подтверждения, запрашивающее у пользователя, хочет ли он прервать выбранный процесс.
   • Если пользователь подтверждает, открывает handle процесса с помощью функции OpenProcess, прерывает процесс с помощью функции TerminateProcess и удаляет элемент из списка. Если прерывание не удается, отображает сообщение об ошибке.
3. FormCreate:
   • Настраивает столбцы и стиль просмотра в контроле списка.
   • Вызывает процедуру BtnRefreshClick, чтобы заполнить список элементами запущенных процессов.

Чтобы выполнить задачи, указанные в коде:

1. Закройте любые запущенные экземпляры приложения.
2. Запустите приложение.
3. Нажмите кнопку "Обновить", чтобы заполнить список элементами запущенных процессов.
4. Дважды кликните по имени процесса, чтобы прервать его работу.

Примечание: код требует использования единицы TLHelp32, которая предоставляет функции для работы с снимками и handle процессов.

В статье описывается способ отображения и закрытия запущенных процессов в Windows с помощью Delphi, включая создание формы с ListView и кнопкой refresh, а также DOUBLECLICK-обработку для убийства процесса.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессы и Сервисы ::