Пт июн 10, 2022 7:34 am Пт июн 10, 2022 7:34 am
// ---------------------------------------
// Скрипт просто пишет в файл время последнего своего запуска
var
StartTime:double;
wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSecond: word;
iUIN,LastUIN,nUIN,mmSek,sDel:integer;
begin
StartTime:=Now;
DecodeDateTime(StartTime, wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliSecond);
if (wHour=0) and (wMinute=0) then
begin
sDel:=DeleteFile('C:\Programs\LastTimeRun.txt');
AddLineToFile(inttostr(wDay)+'.'+inttostr(wMonth)+'.'+inttostr(wYear)+' '+inttostr(wHour)+':'+inttostr(wMinute)+':'+inttostr(wSecond)+' - результат удаления файла: '+IntToStr(sDel),'C:\Programs\ResultDel.txt',0);
end;
AddLineToFile(inttostr(wDay)+'.'+inttostr(wMonth)+'.'+inttostr(wYear)+' '+inttostr(wHour)+':'+inttostr(wMinute)+':'+inttostr(wSecond),'C:\Programs\LastTimeRun.txt',0);
end.
А вот содержимое файла LastTimeRun.txt в момент смены даты:
9.6.2022 23:57:0
9.6.2022 23:58:0
9.6.2022 23:59:0
10.6.2022 0:2:0
10.6.2022 0:3:0
10.6.2022 0:4:0
10.6.2022 0:5:0
При этом файл вообще ResultDel.txt не создаётся.
Вообще-то я не должен видеть строки от 9.6.2022. Но их вижу. Более того - я вижу пропуск в 3 минуты! Что такое, почему? Можно, конечно, поправить время удаления файла (параметр wMinute) на третью минуту, но это уже костыль.