Работа со службами безопасности и процессами в Delphi на Windows 11 с использованием D12.2 P1 для 32-битных приложений: сканирование открытых файлов и идентификация пользователей

Delphi , ОС и Железо , Windows

Понимание контекста

В контексте обсуждения на форуме, Ian Branch столкнулся с проблемой при работе с функциями безопасности Windows в среде Delphi 12. Он запросил у ChatGPT создать модуль, который бы сканировал диск/директорию на наличие исполняемых файлов, начинающихся на "DBi", и возвращал бы имена файлов, которые в данный момент используются, а также имена пользователей, работающих с этими файлами. ChatGPT предоставил исходный код, который Ian успешно использовал после небольшой корректировки, предложенной сообществом.

Описание проблемы

Основная проблема заключалась в несовместимости типов данных в коде, предоставленном ChatGPT, и ошибках в использовании функций Windows API. В частности, неверное использование функции GetTokenInformation привело к ошибке компиляции.

Предложенное решение

Сообщество помогло Ian Branch исправить ошибки в коде, предложив использовать правильные типы данных и корректно обрабатывать возвращаемые значения функций Windows API.IanBranch смог успешно использовать предоставленный код после внесения небольших изменений, включая исправление функции IsFileOpen для более точного определения, открыт ли файл, и использование правильного типа PTOKEN_USER.

Альтернативное решение

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

Пример кода

function IsFileOpen(const FileName: string): Boolean;
begin
  // Попытка открыть файл с исключительным доступом
  HFile := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_DELETE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  // Проверка на ошибку из-за нарушения обмена
  Result := GetLastError = ERROR_SHARING_VIOLATION;
  if HFile <> INVALID_HANDLE_VALUE then
    CloseHandle(HFile);
end;

Заключение

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

Примечание для SEO

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

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

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

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

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

:: Главная :: Windows ::