Info-Fenster von Windows anzeigen

[Helmi]

Zitat von DeddyH:

Verpasse ich irgendetwas, oder redet Ihr an einander vorbei? Was soll denn nun angezeigt werden, die Windows-Version oder die Versionsinfos des eigenen Programms?

Ich kenn nur den Dialog über ShellAbout
und der zeigt ja die Windoof-Version an + einen eigenen Text (bei mir die eigene Programmversion)

zeigt nur den Windows-Text an - sonst gar nix - echt - gar nix:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShellAbout(self.Handle, PWideChar(''), PWideChar(''), 0);
end;

[Willie1]

Hallo Leute,
der Ausgangspunkt meiner Frage war, eine About-Box für meine eigenen Programme. In dieser zeige ich zusätzlich meine eigene Ikone, die Windows-Version und die Größe des Arbeitsspeichers.
Ab Windows 8.1 lässt die Version nicht mehr mit GetWindowsVersion und seit W 10 auch nicht mehr über die Registry abfragen.
Meine Idee war ein Button auf der About-Box, mit der sich das Windows-Info Fenster öffnen lässt. (Bei Vista wird hier auch der Arbeitsspeicher angezeigt, nicht bei W 10).
Da kam mir Helmis Vorschlag mit ShellAbout gerade recht: About-Box Und Windows-Info zusammen! Ich stelle aber fest, dass Win 10 den individuellen Kopftext ignoriert und die
falsche Windows Version 6.2 9200 anzeigt. Wenn ich die Lösung von Hathor nehme, wird dagegen die richtige Version 10.0.10240 angezeigt.
Ihr könnt es ausprobieren.
Willie.

[DeddyH]

Darum ging es uns auch gar nicht, sondern um die falschen Parametertypen. Schau Dir doch die korrigierte Fassung aus #26 noch einmal an.

[Dalai]

Zitat von Willie1:

Ich stelle aber fest, dass Win 10 den individuellen Kopftext ignoriert und die falsche Windows Version 6.2 9200 anzeigt.

Jo mei, dann integrier doch ein passendes Manifest und fertig. Das sollte man sowieso machen. Ja, am Anfang mag das vielleicht kompliziert klingen und ggf. auch sein, aber wenn man das einige Male gemacht hat, geht das sehr leicht von der Hand und man will nicht mehr ohne. Es gibt da einerseits einige Anleitungen im Netz dafür und andererseits gibt's den Manifest Creator von himitsu hier im Forum (einfach mal nach Manifest Creator suchen), auch wenn ich mir grad nicht sicher bin, ob der bereits die Kompatibilität zu Win10 erzeugen kann (denke aber schon).

Zitat:

Wenn ich die Lösung von Hathor nehme, wird dagegen die richtige Version 10.0.10240 angezeigt.
Ihr könnt es ausprobieren.

Logisch, weil dort einfach die winver.exe aufgerufen wird, und die kennt das Windows natürlich.

MfG Dalai

[EWeiss]

Zitat:

Ab Windows 8.1 lässt die Version nicht mehr mit GetWindowsVersion und seit W 10 auch nicht mehr über die Registry abfragen.

OK dann.
Deshalb sollte/könnte man auch das hier nehmen.

GetVersionEx
http://securityblog.gr/2617/get-wind...-service-pack/

gruss

[Sir Rufo]

Es funktioniert wunderbar, wenn man sich die Version von "kernel32.dll" beschafft.

Delphi-Quellcode:

AppVersion := GetFileVersion( ParamStr(0) );
WinVersion := GetFileVersion( 'kernel32.dll' ); // liefert die echte Windows-Version

[Willie1]

Hallo Dalai,
ich will's nicht so oft erwähnen, ich sehe schlecht und bin nur Hobby-Programmierer..
Ich habe die Seite bei MS gefunden und weiß jetzt, dass GetWindowsVersion ausgeknipst ist:https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx
Mit dem Manifest-Beispiel komme ich aber nicht zurecht, da fehlen mir die Grundlagen.
Die weiteren Lösungen werde ich am anderen Rechner mit Delphi ausprobieren.
Willie.

[Dalai]

Zitat von Willie1:

Ich habe die Seite bei MS gefunden und weiß jetzt, dass GetWindowsVersion ausgeknipst ist:https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Naja, ausgeknipst ist es nicht, nur als "Deprecated", also "veraltet", markiert und sie liefert ohne passende Kompatibilität eine ältere/falsche Version zurück.

Zitat:

Mit dem Manifest-Beispiel komme ich aber nicht zurecht, da fehlen mir die Grundlagen.

Daher mein Hinweis auf die diversen Anleitungen im Netz (darunter natürlich auch deutschsprachige) und himitsus Manifest Creator hier im Forum. Letztlich ist die Manifest-Geschichte halb so wild.

MfG Dalai