danke für die Vorschläge, leider hat es zu keinem brauchbaren Ergebnis geführt...hier noch die genauen Codes :
Delphi-Quellcode:
with TFileStream.Create('Project18.exe',fmOpenWrite) do
begin
Try
Seek(SizeOf(TDateTime), soFromEnd);
Write(Now, SizeOf(TDateTime));
Finally
Free;
End;
end;
und
Delphi-Quellcode:
var
myDate : TDateTime;
begin
with TFileStream.Create('Project18.exe',fmShareDenyNone) do
begin
Seek(SizeOf(TDateTime),soFromEnd);
Read(myDate,SizeOf(TDateTime));
Free;
end;
Showmessage(DateTimeToStr(myDate));
end;
Jetzt gibt es zwar keinen Fehler mehr, allerdings bekomm ich immer : 30.12.1899 ausgegeben