CMD mit Output

[Willie1]

Hallo Holger,
dein Quelltext bringt bei mir zunächst das falsche Ergebnis (18.02.1970). Wenn ich Reg.OpenKey() durch Reg.OpenKeyReadOnly() ersetze, liefert er das richtige Ergebnis. Bravo.
Seit ihr sicher, dass dieses Konstrukt mit allen Systemen ab Windows 7 funktioniert? Es würde ja einen blöden Eindruck machen, wenn meine About-Box hier Unsinn liefern würde. Ich habe nur Rechner mit Windows 10 und Vista. Ich will nicht schon wieder Freunde anhauen müssen, zu testen. Was denkt ihr?
Gruß Willie.

[Willie1]

Holger, noch 2 Nachträge: (Das war ein guter Tipp.)
KEY_WOW64_64KEY ich habe verstanden, er erlaubt den lesenden Zugriff von einem 32-Bit-Prozess auf die 64-Bit Registry. Aber warum können die anderen Werte auch aus der 32-Bit Reg gelesen werden. Meine Vermutung: InstallTime ist eine 64-Bit Zahl!

Mit Reg:=TRegistry.Create(KEY_WOW64_64KEY or KEY_READ); geht es auch mit Reg.OpenKey() Willie.

[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.

[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)

[Dalai]

Zitat von Willie1:

Meine Vermutung: InstallTime ist eine 64-Bit Zahl!

Mit Sicherheit nicht. Unix Timestamps sind 32 bit lang (und auch noch mit Vorzeichen), daher auch der Wind um den Überlauf im Jahr 2038. Der Grund ist ein anderer: Einmal liest du Werte aus HKLM\Software, das andere Mal aus HKLM\Software\Wow6432Node. Beide Zweige gibt es gleichzeitig, und sie enthalten unterschiedliche Werte/Daten. Schau einfach mal mit Regedit rein, dann wirst du das sehen.

Ach, noch eine Sache: nicht einfach pauschal mit KEY_READ or KEY_WOW64_64KEY lesen, sondern abhängig davon, ob das Programm auf einem 64-bit Windows ausgeführt wird oder nicht.

Grüße
Dalai

[HolgerX]

Hmm..

[QUOTE=Dalai;1428684]

Zitat von Willie1:

Ach, noch eine Sache: nicht einfach pauschal mit KEY_READ or KEY_WOW64_64KEY lesen, sondern abhängig davon, ob das Programm auf einem 64-bit Windows ausgeführt wird oder nicht.

Richtig, ich nutze KEY_WOW64_64KEY nur dann, wenn ich auf einem 64Bit OS bin und auch wirklich auf die 64Bit-Verzeichnisse in der Reg zugreifen will.
Benutzen tue ich es auch unter Win7 64Bit, Vista ignoriere ich und unter XP gab es das WOW64 noch nicht (XP 64Bit ist nie wirkich im Markt erschienen).

Zum Thema 'Wie erkenne ich ein 64Bit OS?' einfach mal hier im Forum suchen, da gibt es mehre Threads...

[Willie1]

Zitat:

Mit Sicherheit nicht. Unix Timestamps sind 32 bit lang (und auch noch mit Vorzeichen), daher auch der Wind um den Überlauf im Jahr 2038. Der Grund ist ein anderer: Einmal liest du Werte aus HKLM\Software, das andere Mal aus HKLM\Software\Wow6432Node. Beide Zweige gibt es gleichzeitig, und sie enthalten unterschiedliche Werte/Daten. Schau einfach mal mit Regedit rein, dann wirst du das sehen.

Dalai

Sieh dir InstallTime in der Registry an, das passt in keine Integer-Zahl!

Ich weiß, Vista ist abgemeldet, aber da hab' ich noch ein 32-Bit-Windows, auch da läuft der Code von Holger korrekt, richtiges Installationsdatum, das ist doch erfreulich.

Willie.