CMD mit Output

[old7]

uses
ShellApi;

{$R *.dfm}

const
sInfoVersion = 'Version 20191503';

procedure TForm1.ButtonInfoClick(Sender: TObject);
begin
ShellAbout(Handle,
'Windows mit WillieProgramm',
'WillieProgramm ' + sInfoVersion + #13 +
'Copyright 2019 Willie.',
Application.Icon.Handle);
end;

end.

[Willie1]

Hallo,
Die About-Box von Windows will ich nicht benutzen. Zu viel Werbung für Microsoft!
Ich habe jetzt die 3 Methoden, die installierte Windows Version an zu zeigen (Win-API, Console und Registy) zum Laufen gebracht und bringen für Windows 10,8.1,7 und Vista das richtige Ergebnis.

Eine Frage bleibt noch: in der Registry steht das Installationsdatum des OS, es wäre lustig, wenn ich das noch in meine About-Box unterbringen könnte. Wie wird das Datum aus gelesen? Weiß das jemand?
Willie.

[Delphi.Narium]

Das sieht schwer nach 'nem Unix-Timestamp aus, also Sekunden seit 1.1.1970.

Ungefähr sowas?

ShowMessage(DateTimeToStr(UnixToDateTime(Registry.ReadInteger('SOFTWARE\Microsoft\Windows NT\CurrentVersion','InstallDate',0)));

[Willie1]

Hallo, ich bin im Web fündig geworden. Hilft mir aber nicht so richtig weiter.
https://www.it-administrator.de/them...ent/63694.html


Wenn ich den Wert aus der Registry so auslese, wie von dir beschrieben, ergibt das 01.01.1970.
Willie.

[HolgerX]

Hmmm..


Handelt es sich bei deiner Applikation um eine 32 Bit?
Denn dann liest du auf einem 64 Bit Windows bei deiner Reg-Abfrage nicht aus
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion

sondern durch das Redireckt von Windows aus
HKEY_LOCAL_MACHINE\Software\Wow6432Node\Microsoft\ Windows NT\CurrentVersion

Dort ist das 'InstallDate' dann '0' und somit der 1.1.1970...

Um aus einer 32 Bit App auf den 64 Bit Pfad zuzugreifen musst Du 'KEY_WOW64_64KEY' beim

Reg := TRegistry.Create(KEY_WOW64_64KEY or KEY_ALL_ACCESS);

Verwenden, dann wird auch aus eine 32 Bit App auf 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion' zugegriffen.

Hier mal ein Beispiel:

Delphi-Quellcode:

uses
  Registry, DateUtils;

const
 KEY_WOW64_64KEY = $0100;
 KEY_WOW64_32KEY = $0200;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  tmpInstallDate : Cardinal;
begin
  Reg := TRegistry.Create(KEY_WOW64_64KEY or KEY_ALL_ACCESS);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion', False) then
    begin
      tmpInstallDate := Reg.ReadInteger('InstallDate');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
  Edit1.Text := DateTimeToStr(UnixToDateTime(tmpInstallDate));
end;

'CurrentVersion' hingegen ist in beiden Zweigen identisch..

[Dalai]

@HolgerX:
Der Code wird in dieser Form ausschließlich mit Adminrechten funktionieren, denn er öffnet den Zweig erstens mit OpenKey (was per default versucht, schreibend zu öffnen) und zweitens im Konstruktur mit KEY_ALL_ACCESS. Schreibzugriff auf HKLM haben nur Admins (und Nutzer, denen die Rechte gegeben wurden). Sehr viel sinnvoller ist es, Schlüssel nur lesend zu öffnen, wenn man nur lesen will: Reg := TRegistry.Create(KEY_WOW64_64KEY or KEY_READ);
Grüße
Dalai

[HolgerX]

Hmm..

Komisch..

Ich hab hier mein Delphi ohne Admin-Rechte gestartet, genau mit diesem Code..

Läuft!

Admin Rechte brauche ich nur wenn ich wirklich 'schreiben' will..

Aber hast recht, man sollte mit

Reg := TRegistry.Create(KEY_WOW64_64KEY or KEY_READ);

Öffnen...

Das Beispiel war auch einfach nur (schnell) der Delphi-Hilfe entnommen und nur der Pfad und 64bit angepasst..

(Getestet mit D6 auf Win8.1 64Bit)

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