Я написал небольшой сервис, который в основном просто записывает некоторый текст в файл .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;
Нужны ли мне специальные права для службы?