сделать что бы txt файле сохранялась дата запуска программы делфи

[EVGEN_7711]

хочу сделать что бы txt файле сохранялась дата запуска программы делфи

[Alex11223]

Делай.

[Stanislav]

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

Делай.

a64cbe4e3879fdeea4a6c1df5ad807ce.jpg

[Вадим Мошев]

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

хочу сделать что бы txt файле сохранялась дата запуска программы делфи

Начинайте делать, что не получается, спрашивайте, вам подскажут.

[Serge_Bliznykov]

какой вопрос - такой и ответ!

var f :TextFile;
begin
  AssignFile(f, 'D:\start_time.txt');
  if FileExists(f) then Append(f) else Rewrite(f);
  WriteLn(f, 'start at '+DateToStr( now));
  CloseFile(f)
end;

[Alex11223]

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

вопрос

Где?

[Вадим Мошев]

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

Где?

В смысле формулировка задания?

[Serge_Bliznykov]

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

Где?

Мда.. и действительно, нет же никакого вопроса.
Автор просто поделился с нами сокровенным, рассказал о своих желаниях.
А я про какой-то вопрос говорю.
Извините!

[min@y™]

https://www.youtube.com/watch?v=UMP4N8llWo4

[D1973]

procedure WriteLog(k: integer);
var L: TStringList;
begin
 L := TStringList.Create;
 if FileExists('session.log') then L.LoadFromFile('session.log');
 case k of
  0: L.Add('Начало работы: ' + DateTimeToStr(Now));
  1: L.Add('Окончание работы: ' + DateTimeToStr(Now));
 end;
 L.SaveToFile('session.log');
 L.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Начало работы
 WriteLog(0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //Окончание работы
 WriteLog(1);
end;