Сервис и приложение

[Shouldercannon]

Доброго времени суток!
Появилась необходимость создать программу, которая будет что-то делать (создавать текстовые файлы на диске C) до входа в Windows (работать как сервис) и делать тоже самое, но после входа в Windows (работать как приложение, а не как сервис).
Создание текстовых файлов

procedure TFormMain.Timer1Timer(Sender: TObject);
var
  SL: TStringList;
begin
  Inc(Count);

  SL := TStringList.Create;
  SL.Add(IntToStr(Count));
  SL.SaveToFile(Format('C:\Delphi\Project\_\TXT_%d.txt', [Count]));
  FreeAndNil(SL);
end;

Помогите, пожалуйста, поэтапно сделать задуманное. Что писать первым, какие проверки делать (проверка командной строки на предмет указаний инсталлировать или удалить сервис; проверка, что приложение запущено как сервис; и прочие тонкости)

[Stilet]

проверка, что приложение запущено как сервис

Насколько я помню, есть компонент TService, позволяющий стать приложению службой. У него есть событие старта - вот в нем и определяй что приложение запущено в качестве службы.
Вообще я не оч. хорошо знаю как в Делфи службы по феншую пишутся, но по-моему старт (обычный старт) приложения как службу его не активирует. А вот если приписать ключик -start при запуске, то будет стартовать именно как приложение.

У меня нескромный вопроса:
А что понадобилось выполнять до старта сеанса и после? т.е. почему бы не поместить приложение в автозагрузку?

[IliaIT]

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

Да главное отличие службы от приложения это отсутствие визуальных форм. на сколько я понял описание её.

[Stilet]

главное отличие службы от приложения это отсутствие визуальных форм.

Не согласен. Я очень много видел служб с формами и окнами. Да тот же RAdmin взять к примеру.

[Shouldercannon]

Сообщение от Stilet

У меня нескромный вопроса:
А что понадобилось выполнять до старта сеанса и после? т.е. почему бы не поместить приложение в автозагрузку?

Есть бекапщик, который должен работать до входа в виндовс и после. Не всегда есть возможность проверит в каком состоянии система, а бекапщик запускается только после входа в систему.

[MODBUS]

...пишется два приложения: сам сервис и десктоп-приложение (с формами или без, неважно). Задача сервиса запустить приложение до входа с правами учетки пользователя. Так делается по классике.

[Stilet]

Есть бекапщик

А вот так лучше не делать.
Надежнее будет стартовать его в автозагрузке, а пользователю выводить окно "внимание, создаю копию. подождите.".

[Человек_Борща]

С интерактивными службами вам придется чуток помудохаться Интерактивности нет как таковой в Windows 7 и далее...

[Shouldercannon]

Сообщение от Stilet

А вот так лучше не делать.
Надежнее будет стартовать его в автозагрузке, а пользователю выводить окно "внимание, создаю копию. подождите.".

Того требуют обстоятельства. Бекапщик стоит на виртуальной ОС, куда заходят очень редко, когда что-то выходит из строя. И эта виртуальная ОС иногда перезагружается. Так что только полная автономность без участия пользователя.