Umwandlung Registry Wert Hexadezimal in Datum

[HMEDLER]

Hallo an Alle,

bin zur Zeit dabei ein Script zu erstellen welches die aktuellen Infos zu dem von uns verwendete Avira Antivir Professional ausliest.

Dabei stosse ich auf folgendes Problem:

Die Registry Werte lauten wie folgt:


VDFDat = 7da011b
LastScan = 4b602dbf

Wie kann ich diese Werte entsprechend umwandeln damit ich Sie überwachen kann.

Gruß aus dem verscheiten Flörsheim

[HMEDLER]

Hallo,

dank der netten Hilfe vom Support und dem kleinen Script ist mein problem fast gelöst.

Code: Alles auswählen

Var
  LDateTimeRaw : String;
Begin
  LDateTimeRaw := GetVarContent('TIMESTAMP');

  // Umrechnung vom TimeStamp in LongInt
  //a := round((LDateTimeRaw - 25569.0) * 86400);

  DateTime := (LDateTimeRaw / 86400) + 25569.0;

  //Übergabe des formatierten Datum an ACMP Variable DATETIME
  SetVarContent('DATETIME', (DateTimeToStr(DateTime)));

  //ShowMessage(DateTimeToStr(DateTime));
  Result := 0;
End;

Nochmals Danke für das kurze Delphi Script.