Аргументы командной строки Delphi Windows Services

Я не думаю, что вы можете запустить службу с их помощью, но если вы сохраните эти параметры в реестре, вы можете изменить программу, чтобы при будущих запусках всегда идти и брать их. (т.е. если ParamCount = 0, тогда получить параметры из реестра)

Аргументы службы могут быть переданы в аргументе lpBinaryPathName функции CreateService. В TService Delphi это вызывается внутри TServiceApplication.RegisterServices.InstallService, который вы не можете переопределить (легко).

Поэтому я подозреваю, что самый простой способ сделать это - обработать событие TService.AfterInstall и самостоятельно обновить реестр через ChangeServiceConfig.

Хорошо, после некоторого исследования я отказался от элегантного подхода и пошел по прямому пути записи непосредственно в реестр.

Чтобы упростить задачу, я сделал следующее: я сохраняю аргументы, которые я хотел передать в переменных на моем TService. Затем я устанавливаю событие AfterInstall для записи непосредственно в реестр (с помощью объекта TRegistry) именно ту командную строку, которую я хотел.

uses Registry;
procedure MyService.AfterInstall(Sender: TObject) ;
var
  reg:TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := 'HKEY_LOCAL_MACHINE';
    if reg.OpenKey('SYSTEM\CurrentControlSet\Services\MyService', True) then
    begin
      reg.WriteExtendString ('ImagePath', ParamStr(0) + ' -some -arguments') ;
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

Не то элегантное решение, которое я искал, но оно выполняет свою работу.

Спасибо за другие ответы!

Пабло, У меня был тот же вопрос, и я ничего не нашел, и я тоже пошел по маршруту редактирования реестра. Кроме того, я также использую настраиваемые действия для создания дополнительных каталогов установки и копирования файлов (на C#). Ваше предложение оказалось полезным, и я тоже перестал искать "элегантный" способ. Благодарность

Я только что обнаружил кое-что удивительное, чем стоит поделиться.

Вы можете указать параметры для служб Windows (как минимум) следующими способами:

1. Введите его в графическом интерфейсе Service Manager как «Параметр запуска».
2. Передайте его в качестве аргументов в: sc.exe YourService param1 param2
3. Введите его в реестр в записи ImagePath = .. \ YourService.exe param1 param2

В Delphi есть 2 способа запросить параметры приложения / службы:

• System.ParamCount / System.ParamStr: Таким образом вы получите параметры 3. выше.
• TService.ParamCount / TService.Param []: Таким образом вы получите параметры 1. и 2. выше.

Для правильной установки и настройки службы следует использовать SCM API. SC.EXE - это интерфейс командной строки для SCM API. В этой ситуации не следует манипулировать реестром напрямую, это работает, но это также зависит от того, какое разрешение имеет учетная запись службы. В любом случае, мне интересно, зачем вам нужны аргументы командной строки, если вы встраиваете их в код - обычно эти аргументы устанавливаются вне службы (установщиком, конфигуратором и т. д.) Для изменения поведения службы.