Создание надежного механизма обновления программ на Delphi с проверкой процессов в терминальной сессии

Delphi , ОС и Железо , DOS и Консоль

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

Проблема

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

Решение

Для проверки запущенных процессов можно использовать следующий алгоритм:

1. Получение списка всех запущенных процессов.
2. Проверка каждого процесса на соответствие имени файла, который необходимо обновить.
3. Завершение процессов, если они найдены.

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

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows;

type
  TProcessEntry32 = record
    dwSize: DWORD;
    cntUsage: DWORD;
    th32ProcessID: DWORD;
    th32DefaultHeapID: DWORD;
    th32ModuleID: DWORD;
    dwFlags: DWORD;
    szExeFile: array[0..260] of Char;
    constructor Create(AProcessID: DWORD); static;
  end;

constructor TProcessEntry32.Create(AProcessID: DWORD);
begin
  dwSize := SizeOf(TProcessEntry32);
  th32ProcessID := AProcessID;
end;

function GetProcessList(var ProcessEntries: TArray<TProcessEntry32>): Boolean;
var
  lReturn: DWORD;
  lSnapshot: THandle;
begin
  Result := False;
  lSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPER, 0);
  if (lSnapshot <> INVALID_HANDLE_VALUE) then
  try
    SetLength(ProcessEntries, 0);
    if Process32First(lSnapshot, ProcessEntries[0]) then
    begin
      SetLength(ProcessEntries, SizeOf(ProcessEntry32));
      while Process32Next(lSnapshot, @ProcessEntries[High(ProcessEntries)]) do
        SetLength(ProcessEntries, Length(ProcessEntries) + SizeOf(ProcessEntry32));
      Result := True;
    end;
  finally
    CloseHandle(lSnapshot);
  end;
end;

function IsProcessRunning(AProcessName: string): boolean;
var
  ProcessEntries: TArray<TProcessEntry32>;
  Index: Integer;
begin
  Result := False;
  if GetProcessList(ProcessEntries) then
  begin
    for Index := Low(ProcessEntries) to High(ProcessEntries) do
    begin
      if (ProcessEntries[Index].szExeFile = AProcessName) then
        Result := True;
    end;
  end;
end;

Используя этот код, можно проверить, запущен ли процесс с указанным именем файла. Для завершения процесса можно использовать функцию TerminateProcess из модуля Winapi.Windows.

Подтвержденный ответ

Использование функций Windows API для перечисления и получения информации о сессиях и процессах в этих сессиях, таких как WTSEnumerateSessions и WTSEnumerateProcesses, может быть полезным для более глубокой проверки запущенных процессов.

Альтернативный ответ

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

Заключение

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

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

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

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

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

:: Главная :: DOS и Консоль ::