Hallo, ich möchte gerne ein Datum ans ende meiner Datei hängen aber es will nicht so recht klappen, aber warum nicht?
Dies hier wird von einer zweiten exe ausgeführt :
Delphi-Quellcode:
begin
with TFileStream.Create('test.exe',fmOpenWrite) do
begin
Seek(-SizeOf(TDateTime),soFromEnd);
Write(Now, SizeOf(TDateTime));
Free;
end;
end;
und dann zum auslesen direkt in der test.exe
Delphi-Quellcode:
var
myDate : TDateTime;
begin
with TFileStream.Create('test.exe',fmShareDenyNone) do
begin
Seek(-SizeOf(TDateTime),soFromEnd);
Read(myDate,SizeOf(TDateTime));
Free;
end;
Showmessage(DateTimeToStr(myDate));
end;
Rufe ich die test.exe auf, bevor ich da was reingeschrieben hab, dann zeigt mir das showmessage : 30.12.1899 an....ist ja auch klar, weil am ende der Datei nur nullen stehen.
Schreibe ich aber was dran und führe das Programm dann nochmal auf gibts "Ungültige Gleitoperation". Aber was mache ich falsch?