Systemzeit als integer auslesen

[himitsu]

Zitat von XXcD:

Ich denke mal GetSystemTime wird mir so eine Zahl ausgeben, aber wie bekomme ich die als Integer???

garnicht, da (wie schon gesagt) GetSystemTime 4 Integer, bzw. 8 WORD (für jedes Feld "Tag,Monat,Jahr,Stunde,Minute,Sekunde") belegt.

die UnixTime wäre eine Möglichkeit, allerdings nicht für Integer, denn dafür ist der Wert (Sekunden seit 1970) schon zu groß.
In einen LongWord/DWORD paßt es aber noch, wobei die Registry auch eigentlich das unsigned DWORD und nicht das signed Integer kennt.


Ansonsten hab ich da oben auch noch Rechenbeispiele angegeben.

[Andreas L.]

Delphi-Quellcode:

uses ..., DateUtils;

...


function GetIntDate:Int64;
begin
  Result := DateTimeToUnix(Now);
end;

Den Wert kannst du dann mit TRegistry.WriteInteger in die Registry schreiben.