Сохранить данные в реестр из TService

[Shouldercannon]

Так я считываю данные TService из реестра

Код: (Delphi)

procedure Tsc.ServiceCreate(Sender: TObject);
var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey(Name, False);
  CurrentDate := RegFile.ReadString('Main', 'CurrentDate', DateToStr(Date));
  ITimerInterval := RegFile.ReadInteger('Main', 'TimerInterval', 7200);
  RegFile.CloseKey;
  FreeAndNil(RegFile);
end;

Так хочу сохранить данные из TService в реестр

Код: (Delphi)

var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey(Name, True);
  RegFile.WriteString('Main', 'CurrentDate', FormatDateTime('dd.mm.yyyy"-"hh:nn:ss:zzz', Now));
  RegFile.WriteInteger('Main', 'TimerInterval', ITimerInterval);
  RegFile.CloseKey;
  FreeAndNil(RegFile);
end;

OnDestroy и OnShutdown не помогают.

[Алексей++]

Shouldercannon, а как они при работе с реестром могут помочь ?  

если хочется сохранить настройки при закрытии программы - попробуй в конце функции main сохранение вызвать

[RXL]

Леш, тут Борланд, типа все объектное и тут приложение — виндовый сервис. Описанные события для объекта типа TService.
Я Дельфями не занимаюсь и потому посоветую ТС читать доки, там будут описаны нюансы дельфийских сервисов, их инсталляции и деинсталляции, запуска и остановки.
Тут на англицком по теме: https://www.tolderlund.eu/delphi/service/service.htm