Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Сохранить данные в реестр из TService  (Прочитано 443 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Shouldercannon
Постоялец

ru
Offline Offline

« : 02-06-2019 17:55 » 

Так я считываю данные 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 не помогают.
Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #1 : 03-06-2019 04:37 » 

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

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

RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 03-06-2019 07:51 » 

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

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines