Работа с процессами в Delphi: получение деталей о запущенных приложениях

Delphi , Синтаксис , Справочник по API-функциям

Введение

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

Основная часть

Для получения информации о запущенных процессах в Delphi можно использовать несколько подходов. Один из них заключается в использовании библиотеки Tool Help, которая включает функции CreateToolhelp32Snapshot, Process32First и Process32Next. Структура PROCESSENTRY32 содержит все необходимые данные о процессе.

Пример кода на Object Pascal для получения списка процессов:

uses TlHelp32;

function GetRunningProcesses: TArray<TProcessEntry32>;
var
  SnapshotHandle: THandle;
  ProcessEntry32: TProcessEntry32;
begin
  SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapshotHandle = INVALID_HANDLE_VALUE then
    Exit;

  ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
  if not Process32First(SnapshotHandle, ProcessEntry32) then
    Exit;

  Result := TArray<TProcessEntry32>.Create;
  try
    while True do
    begin
      Result.Add(ProcessEntry32);
      if not Process32Next(SnapshotHandle, ProcessEntry32) then
        Break;
    end;
  finally
    CloseHandle(SnapshotHandle);
  end;
end;

Для получения имени владельца процесса можно использовать функцию GetProcessUserName, которая работает с токенами безопасности процесса:

type
  PTokenUser = ^TTokenUser;
  TTokenUser = packed record
    User: SID_AND_ATTRIBUTES;
  end;

function GetProcessUserName(ProcessID: Cardinal; out DomainName, UserName: string): Boolean;
begin
  // Implementation of the function
end;

Заключение

В данной статье был представлен обзор возможностей получения информации о запущенных процессах в Delphi. Используя библиотеку Tool Help и функции работы с токенами безопасности, разработчики могут получить необходимые данные, включая идентификаторы процессов, имена исполняемых файлов и имена владельцев.

Примечание

В контексте данной статьи важно отметить, что для получения полной информации о процессе, включая владельца, необходимо использовать дополнительные функции и структуры данных, такие как OpenProcess, OpenProcessToken, GetTokenInformation, LookupAccountSid и другие. Приведенный выше код является лишь примером и может быть расширен в соответствии с требованиями задачи.

Пример использования кода

Для использования полученных данных в своем приложении, разработчики могут создать пользовательский интерфейс, который будет отображать информацию о процессах в удобном виде, например, в виде списка с колонками для PID, имени процесса и имени владельца. Это позволит пользователям легко идентифицировать и управлять запущенными процессами.

Создано по материалам из источника по ссылке.

Статья описывает, как в среде разработки Delphi получить список запущенных процессов в операционной системе Windows, используя различные функции и структуры, включая библиотеку Tool Help и операции с токенами безопасности.

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

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

:: Главная :: Справочник по API-функциям ::