Как проверить процессы других пользователей в Delphi

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

В вашем запросе вы просите написать статью на русском языке на тему определения запущенных процессов в Delphi, в том числе процессов, работающих от имени другого пользователя. Статья должна быть ориентирована на специалистов в области компьютерных наук и содержать примеры кода на Object Pascal.

Определение запущенных процессов в Delphi

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

Проблема

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

Решение

Для решения этой проблемы можно использовать механизм мутексов (мьютексов) в операционных системах семейства Windows. Мутекс – это системный ресурс, доступный для всех процессов в системе, и его можно использовать для проверки запущенности приложения.

Шаг 1: Инициализация имени мутекса

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

class function TMutexUtility.initMutexName : string;
begin
  result := format( CONST_NAME_MYAPPMUTEX, [CONST_NAME_MYAPP, CONST_VERSION_MYAPP, LowerCase( ExtractFilePath( ParamStr( 0 ) ).Replace( '\', '/' ) ), TUserInfo.CurrentUser ] );
end;

Шаг 2: Попытка создания мутекса

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

class function TMutexUtility.TryCreateMutex( mutexName_ : string; var hMutex_ : THandle ) : Boolean;
begin
  hMutex_ := CreateMutex( NIL, FALSE, PChar( mutexName_ ) );
  Result := GetLastError <> ERROR_ALREADY_EXISTS;
end;

Шаг 3: Освобождение мутекса

После завершения работы программы мутекс должен быть освобожден.

class procedure TMutexUtility.ReleaseMutex( var hMutex_ : THandle );
begin
  if ( hMutex_ <> 0 ) then
  begin
    CloseHandle( hMutex_ );
    hMutex_ := 0;
  end;
end;

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

program Project3;
uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {TForm1},
  MutexUtility in 'MutexUtility.pas',
  Dialogs;
{$R *.res}
var
  hMutex: THandle;
  mutexName: string;
begin
  mutexName := TMutexUtility.InitMutexName;
  if ( TMutexUtility.TryCreateMutex( mutexName, hMutex ) ) then
    try
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    finally
      TMutexUtility.ReleaseMutex( hMutex );
    end
  else
    ShowMessage('Другая инстанция программы уже запущена! Закройте её, чтобы запустить эту.');
end.

Альтернативные подходы

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

Заключение

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

Надеемся, что эта информация окажется полезной для вас при разработке ваших проектов на Delphi.

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

Статья для специалистов в области компьютерных наук о том, как определить запущенные процессы в Delphi, включая процессы от имени другого пользователя, с примерами кода на Object Pascal.

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

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

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