Монтирование сетевых дисков через Windows Service в Delphi: пошаговое руководство

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

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

Шаг 1: Проверка прав доступа к сети

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

Шаг 2: Использование CreateProcessWithLogonW

Если проблема не в правах, стоит рассмотреть возможность использования функции CreateProcessWithLogonW вместо ShellExecute. Эта функция позволяет запустить процесс в контексте другого пользователя, что может быть необходимо для доступа к сетевым дискам.

Вот пример кода на Object Pascal, который демонстрирует использование CreateProcessWithLogonW для запуска внешнего процесса:

uses
  Winapi.Windows,
  Winapi.ShellApi,
  Winapi.Security,
  System.SysUtils;

function CreateProcessWithCredentials(const CommandLine: string; const Domain, UserName, Password: string): Boolean;
var
  dwCreationFlags: DWORD;
  dwProcessAttributes: DWORD;
  dwThreadAttributes: DWORD;
  bInheritHandles: Boolean;
  lpEnvironment: PChar;
  lpCurrentDirectory: PChar;
  lpStartupInfo: TStartupInfo;
  lpProcessInformation: TProcessInformation;
  hToken: THandle;
  bOk: Boolean;
begin
  Result := False;
  dwCreationFlags := CREATE_NO_WINDOW;
  dwProcessAttributes := SECURITY_SANDBOX_FLAG_NO_UI;
  dwThreadAttributes := SECURITY_SANDBOX_FLAG_NO_UI;
  bInheritHandles := False;
  lpEnvironment := nil;
  lpCurrentDirectory := nil;
  ZeroMemory(@lpStartupInfo, SizeOf(TStartupInfo));
  lpStartupInfo.cb := SizeOf(TStartupInfo);
  ZeroMemory(@lpProcessInformation, SizeOf(TProcessInformation));
  if CreateProcessWithLogonW(
    PChar(UserName),
    PChar(Password),
    dwLogonType,
    PChar(Domain),
    PChar(CommandLine),
    dwCreationFlags,
    lpEnvironment,
    lpCurrentDirectory,
    lpStartupInfo,
    lpProcessInformation,
    hToken
  ) then
  begin
    bOk := True;
  end;
  if hToken <> 0 then
    CloseHandle(hToken);
  Result := bOk;
end;

Обратите внимание, что для работы этого кода необходимо определить тип входа в систему (dwLogonType), который зависит от ваших требований безопасности.

Шаг 3: Альтернативный подход - доступ через UNC-путь

В качестве альтернативы, можно попытаться получить доступ к сетевым ресурсам напрямую через UNC-путь, минуя маппинг дисков.

Пример кода, который пытается открыть файл по UNC-пути:

uses
  System.SysUtils,
  System.Classes,
  System.IOUtils;

var
  FileContent: TArray<Byte>;
begin
  FileContent := TFile.ReadAllBytes('\\server\share\path\to\file.txt');
  // Дальнейшие операции с содержимым файла
end;

Заключение

В данной статье мы рассмотрели, как можно решить проблему доступа к сетевым дискам в приложении, запущенном через Windows Service в Delphi. Мы предложили два подхода: использование CreateProcessWithLogonW для запуска процесса в контексте другого пользователя и прямой доступ к сетевым ресурсам через UNC-путь. Выбор метода зависит от конкретных требований и условий вашего проекта.

Надеемся, что данное руководство поможет вам успешно интегрировать сетевые диски в ваше приложение, запущенное через Windows Service.

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

В статье рассматривается проблема доступа к сетевым дискам в приложении, работающем через Windows Service в среде Delphi, и предлагаются способы её решения, включая использование UNC-маппинга и прямой доступ к сетевым ресурсам.

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

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

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