Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Delphi Протоколирование даты и времени запуска приложения

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,200
Баллы
155
В результате той же папке, в которой и расположен исполняемый файл, будет создан файл work.log, в котором сохранятся дата и
время каждого запуска приложения.
Код:
var FileName : string;
F : TextFile;
begin
FileName:=ExtractFilePath(Application.ExeName)+'work.log';
AssignFile(F,FileName);
try
if FileExists(FileName)=false then {проверка наличия файла FileName}
Rewrite(F) {файла с именем FileName нет — создаем}
else
Append(F); {файл с именем FileName есть — добавляем новую строку}
WriteLn(F, FormatDateTime('Запуск dd.mm.yy в hh:mm:ss', Now));
finally
CloseFile(F);
end;
end;
 
Вверх