Aagon Support

Verfasst: **Do Jan 28, 2010 10:59 am**

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

Verfasst: **Di Feb 02, 2010 3:56 pm**

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.

Aagon Support

Umwandlung Registry Wert Hexadezimal in Datum

Umwandlung Registry Wert Hexadezimal in Datum

Re: Umwandlung Registry Wert Hexadezimal in Datum