Инициация и Логирование Событий Входа в Систему Windows с Использованием Delphi

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

Обнаружение и Инициация Событий Входа в Систему Windows в Приложениях на Delphi

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

Обнаружение Событий Входа в Систему

Для обнаружения событий входа в систему Windows можно использовать различные механизмы, но одним из наиболее эффективных является использование WMI (Windows Management Instrumentation). В частности, стоит обратить внимание на классы WMI, такие как Win32_LogonSession, который связан с Win32_Account через Win32_LoggedonUser. Если для класса Win32_LogonSession поддерживается создание событий, это может быть очень действенным методом для отслеживания сессий входа в систему.

Пример кода на Object Pascal (Delphi) для обнаружения событий входа в систему:

program DetectLogonEvents;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Win.ComObj,
  System.Classes,
  System.Rtti;

// Функция для обнаружения новых событий входа в систему
function GetLogonSessions: TArray<string>;
var
  WMIService: IOleService;
  WMIQuery: IWbemServices;
  WMIQueryResults: IEnumWbemClassObject;
  WbemClass: IWbemClassObject;
  Session: IWbemClassObject;
  SessionName: string;
  SessionUser: string;
begin
  Result := [];
  CoInitialize(nil);
  try
    WMIService := CoGetService([CLSID_WbemServices], TWBEMServices._di_interace, nil, 'ROOT\CIMV2');
    WMIQuery := IWbemServices(WMIService);
    WMIQueryResults := nil;
    SetLength(WMIQueryResults, sizeof(TIEnumWbemClassObject));
    WMIQuery.ExecQuery(
      'SELECT * FROM Win32_LogonSession WHERE LogonType = 10', nil, nil, nil, WMIQueryResults);
    while WMIQueryResults.Next(1, WbemClass) do
    begin
      WbemClass.Get('Domain', 0, SessionUser, nil, nil);
      WbemClass.Get('Name', 0, SessionName, nil, nil);
      Result.Add(SessionUser + '\' + SessionName);
      WbemClass := nil;
    end;
  finally
    CoFreeUnusedLibraries;
  end;
end;

begin
  // Вызов функции для получения списка активных сессий входа
  GetLogonSessions;
  // Здесь должен быть код для обработки полученных данных
  Readln;
end.

Инициация Входа Пользователя из Службы Windows

Чтобы инициировать вход пользователя из службы Windows, можно использовать функцию LogonUser API, которая позволяет создать новый токен пользователя. Затем этот токен можно использовать для потоков или процессов. Функция CreateProcessWithLogonW (и аналогичные) позволяет создать процесс под другим аккаунтом, что фактически сочетает в себе LogonUser и CreateProcessWithTokenW.

Пример кода на Object Pascal (Delphi) для инициации входа пользователя:

program InitiateUserLogon;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Win.CoreUtils;

// Функция для инициации входа пользователя
procedure StartUserProcess(const UserName, Password, Domain: string; const AppPath: string);
var
  Token: PTOKEN;
  Logon: TLogonParams;
  StartupInfo: TStartupInfo;
  Process: TProcessInfo;
begin
  CoInitialize(nil);
  try
    Logon := TLogonParams.Create(SecurityLogonInteractive);
    Logon.User := UserName;
    Logon.Password := PWToChar(Password);
    Logon.Domain := Domain;
    Token := nil;
    if LogonUser(Logon, nil, nil, SecurityImpersonation, LogonTypeInteractive, Token) then
    begin
      SetLength(Token, SizeOf(TTOKEN));
      if CreateProcessWithLogonW(
        nil,
        nil,
        Token^.TokenHandle,
        SecurityIdentificationQuaternary,
        nil,
        AppPath,
        nil,
        nil,
        @StartupInfo,
        @Process,
        nil) then
        // Обработка успешного создания процесса
      end;
    end;
  finally
    CoFreeUnusedLibraries;
  end;
end;

begin
  // Параметры для инициации входа пользователя
  const
    User = 'UserName';
    Password = 'UserPassword';
    Domain = 'DomainName';
    App = 'PathToApplication.exe';

  // Инициация входа пользователя
  StartUserProcess(User, Password, Domain, App);
  Readln;
end.

Заключение

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

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

### Обнаружение и инициация событий входа в систему Windows для приложений на Delphi.

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

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

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