Delphi Windows Служба: Написать текстовый файл - PullRequest
0 голосов
/ 27 апреля 2020

Я написал небольшой сервис, который в основном просто записывает некоторый текст в файл .txt, который он просто не делает. Я проверил это без службы и запись файла работает.

procedure TMyService.ServiceExecute(Sender: TService);
const
  SecBetweenRuns = 10;
var
  Count: Integer;
begin
  Count := 0;
  MyFileWriter:= TMyFileWriter.Create;

  while not Terminated do
  begin
    Inc(Count);
    if Count >= SecBetweenRuns then
    begin
      Count := 0;

      //Here i just try to write a .txt file
      MyFileWriter.WriteFile();

    end;
    Sleep(1000);
    ServiceThread.ProcessRequests(False);
  end;
end;

Нужны ли мне специальные права для службы?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...