Проблема при создании демона(сервиса) в Lazarus

[wadman]

Но, если запустить и остановить, то уже не удаляется, а помечается на удаление.

А зачем удалять? Остановил, заменил исполняемый файл и запустил.

Ситуация следующая - при установке сервиса осуществляется проверка наличия конфигурационного файла по доп. параметру --log, либо в папке с ехешником. И если конфиг не найден, то желательно отменить регистрацию сервиса.
Как это правильно сделать?

Как вариант: дернуть abort в BeforeInstall.

[gvido]

Как вариант: дернуть abort в BeforeInstall.

Спасибо.
Только не BeforeInstall, а AfterInstall

Код: Выделить всё

procedure TMyDaemon.DataModuleAfterInstall(Sender: TCustomDaemon);
begin
  if not ConfigOk then
    begin
         if fileexists(logfile) then
            append(ff)
         else
           rewrite(ff);
         self.UnInstall; //Вот это удаляет регистрацию без ошибок.
        writeln(ff,FormatDatetime('c',now),' Сервис удален.');
        CloseFile(ff);
    end;
end;



Может кому пригодится еще...

[wadman]

Только не BeforeInstall, а AfterInstall

Этот код удаляет только что установленную службу.
Если мой вариант рабочий, то там служба даже не установится, что идеологически вернее.

[gvido]

Да, но при этом она в консоль, выдаст сообщение что такая служба не установлена и ошибкой доступа по адресу. Это не хорошо, по моему...

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