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

[Luuzuk]

А у учетной записи "System" вообще есть права доступа к "D:\LOG.txt"?

[eval]

так у вас по ходу служба не стартует как надо

[Dimonnik]

А у учетной записи "System" вообще есть права доступа к "D:\LOG.txt"?

Права проверилял! Пробовал запускать от Имени Админа...

так у вас по ходу служба не стартует как надо

А как должна стартовать?

[eval]

сделайте пустую и запустите, если все нормально, закидывайте в нее код, только уберите все свои try, пусть система сама пишет ошибки, нельзя их прятать

[Dimonnik]

сделайте пустую и запустите, если все нормально, закидывайте в нее код, только уберите все свои try, пусть система сама пишет ошибки, нельзя их прятать

Пустая служба крутиться нормально...
Вставляю код...

procedure ScanFolder();
var
DirInfo: TSearchRec;
ResultFile: integer;
f: TextFile;

begin
ResultFile := FindFirst(mDir+'*.*', faAnyFile, DirInfo);
while ResultFile = 0 do
begin
AssignFile(f, 'mDir+DirInfo.Name');
Reset(f);
CloseFile(f);
ResultFile := FindNext(DirInfo);
end;
FindClose(DirInfo);
end;

Вываливается...

Комментирую строку

Reset(f);

полет нормальный...

[eval]

AssignFile(f, 'mDir+DirInfo.Name');

а что это?

[Dimonnik]

В логе добавилось вот это: Service failed on execute: File not found

[Dimonnik]

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

а что это?

Я так понимаю связь перемнной f с самим текстовым фалом

[eval]

с каким файлом? вы сначала код исправте, потому как не интересно такие ошибки тут выискивать

[Dimonnik]

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

с каким файлом? вы сначала код исправте, потому как не интересно такие ошибки тут выискивать

procedure ScanFolder();
var
DirInfo: TSearchRec;
ResultFile: integer;
f: TextFile;

begin
ResultFile := FindFirst(mDir+'*.*', faAnyFile, DirInfo);
while ResultFile = 0 do //находим новый файл в каталоге mDir (D:\sent) и получаем его имя (DirInfo.Name) права на папку есть
begin
AssignFile(f, mDir+DirInfo.Name); //пытаемся установить связь с файла ('D:\sent\бла-бла-бла.txt')
Reset(f); //во што то упираемся и все тут.... если комментирую работет и удаляет файл
CloseFile(f); //закрываем файл
DeleteFile(mDir+DirInfo.Name); //Удаляем файл
ResultFile := FindNext(DirInfo);
end;
FindClose(DirInfo);
end;


p.s - эта процедура вызывается каждые 5 секунд