CMD mit Output

[Sherlock]

Zitat von hoika:

Hallo,

Zitat:

Ich will nicht schon wieder Freunde anhauen müssen, zu testen

Es bliebt Dir aber nichts anderes übrig.
Es sei denn, Du hast die Betriebssysteme noch da und kannst sie testweise in einer virtuellen Maschine installieren.

Es gibt da was von Ratiopharm....äh Microsoft:
https://developer.microsoft.com/en-u...dge/tools/vms/

Damit kann man alle noch offiziell unterstützen Win-Versionen zum Testen von *räusper* IE-Funktionalitäten *Zwinker* herunterladen.

Sherlock

[Willie1]

Hallo Holger, Leverkuseen City, da bin ich gestern gewesen.
Ganze Meine Code, werde es checken. Ich habe das auslesen so gemacht: (es klappt)

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  Reg: TRegistry;
  Buf: array[0..7] of Byte;
  id: uint64;
  idt: TDateTime;
begin
  FillChar(Buf, SizeOf(Buf),0);
  Reg:=TRegistry.Create(KEY_WOW64_64KEY);
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion') then begin
    Reg.ReadBinaryData('InstallTime',Buf,SizeOf(Buf));
//    id:=$1d3ea9f6e412ca2;  so steht's in der Registry
    Move(Buf,id,SizeOf(id));
//  ab hier komme ich nicht weiter!
    Reg.CloseKey;
  end;
  Reg.Free
end;

Dann wird mir deine Function weiter helfen. Es funktioniert!!!
Sherlock, Danke für den Tipp. Ich werde "Ratiopharm" nicht befragen müssen. Einen Freund kann ich nerven und mein Bruder ist manches von mir gewöhnt. Gruß Willie.

[Willie1]

Hallo, jetzt zum letzten Mal dieses Thema!
Das Installationsdatum aislesen klappt jetzt, sowohl mit InstallDate als auch mit InstallTime. Nur mit der Zeitzone komme ich nicht klar Mit SystemInfo ermittelt ist Datum-Zeit 13.05.2018 10:47 . Ohne Anpassung ergibt es 09:47 mit der function hier aus dem Forum 11:47. Was ist jetzt richtig?

Delphi-Quellcode:

function DateTimeToLocalTimeDT(dt: TDateTime): TDateTime;
var
  tzi: TTimeZoneInformation;
  lt, st: TSystemTime;
begin
  GetTimeZoneInformation(tzi);
  DateTimeToSystemtime(dt, st);
  SystemTimeToTzSpecificLocalTime(@tzi, st, lt);
  Result := SystemTimeToDateTime(lt);
end;

Willie.

[Delphi.Narium]

11:47 - Sommerzeit
10:47 - Ortszeit
09:47 - Greenwich mean time (UTC)

[Willie1]

Ach so!
Gestern kam durch Zufall das letzte Release-Update von Windows mit neuem Install-Datum, das stimmt. Ist klar, gestern war noch Normalzeit (Winter). Danke für eure Geduld Willie.

[Rollo62]

<OT>
Hat schon jemand einen Algorithmus für eine ausführliche Funktion "IsSommerzeit" zur Berechnung der Zeitverschiebung geschrieben ?

Müsste ja sowas wie "von bis" und das jeweilige Einführungsdatum der verschiedenen Länder berücksichtigen.

Bisher hat ja vielleicht auch einfach grob "Jahr >= 1980" gut funktioniert.

Wenn angeblich die Sommerzeit demnächst in der EU abgeschafft wird sollte man eventuell jetzt schonmal darüber nachdenken, wie man fehlerfrei die "echte" Zeit fehlerfrei in den jeweiligen Zeitzonen berechnen kann.

Ist zwar zum Glück nicht mein aktuelles Thema, könnte es aber vielleicht schnell mal werden.

</OT>

[Delphi.Narium]

Man nehme als Zeit grundsätzlich GMT und rechne für die Anzeige ggfls. nach den aktuelle gültigen Regeln, Zeitzonen ... um.

Ansonsten braucht man halt die Information, wann und wo es überhaupt irgendwelche Zeitumstellungen gab oder gibt, bzw. den / die zur Umrechnung erforderlichen Algorithmus / Algorithmen.

Mit rein mathematischen Methoden oder purer Logik kommt man da nicht zum Ziel.
Ohne "Wissensbasis" geht da nix.