Windows Version inkl. Win 11 ermitteln

[Walter Landwehr]

Hallo kennt jemand eine function die sauber die Windows Version zurück gibt.

Danke für jeden Tipp im voraus.

[fred42]

Hallo,
ueber WMI

https://www.delphipraxis.net/215190-...mitteln-3.html

Gruß

[Kas Ob.]

Hi,

Zitat von Walter Landwehr:

Hallo kennt jemand eine function die sauber die Windows Version zurück gibt.

Danke für jeden Tipp im voraus.

Here a trick that can't be fooled by Windows Compatibility, that work for 32bit and 64bit.

Delphi-Quellcode:

type
  TWinVersion = record
    Major: Cardinal;
    Minor: Cardinal;
  end;

function GetWinVersion: TWinVersion;
const
  // Address of USER_SHARED_DATA (KUSER_SHARED_DATA) is always at FS/GS:[0x7FFE0000]
  KUSER_SHARED_DATA = $7FFE0000;
begin
  // NtMajorVersion is at offset $26C, NtMinorVersion at $270
  // https://www.geoffchappell.com/studies/windows/km/ntoskrnl/inc/api/ntexapi_x/kuser_shared_data/index.htm
  Result.Major := PCardinal(KUSER_SHARED_DATA + $26C)^;
  Result.Minor := PCardinal(KUSER_SHARED_DATA + $270)^;
end;

As for build number is little more trickier and while it is backward compatible, there is no guarantee it will work in future, but you can access the build number by reading NtBuildNumber, whcih changed its index in the past.

Zitat:

0x0244 (4.0 to 5.1);
0x0248 (5.2 to 6.1);
0x0260

[Cypheros]

Nice

[himitsu]

Feste Speicheradresse?

Zum Glück ist ASLR in aktuellen Delphis nicht aktiv.
Halt nee, ist es.

[Kas Ob.]

Zitat von himitsu:

Feste Speicheradresse?

Zum Glück ist ASLR in aktuellen Delphis nicht aktiv.
Halt nee, ist es.

That address belong to a magic read-only fixed page, it is there since the dawn of Windows 32bit, and it is not going anywhere anytime, also documented my Microsoft, the thing is the documentation went from mainstream to more less encouraged to be used, but it was heavily documented in DDK and not only that it was recommended to be relied on for timing instead of GetTickCount for games and more specially for low level drivers.
https://learn.microsoft.com/en-us/wi...er_shared_data
https://learn.microsoft.com/en-us/wi...gercmds/-kuser

In case you afraid of ASLR, which doesn't have a connection to non executable loading address as it is read-only page for general information, then have a look at this
https://msrc.microsoft.com/blog/2022...re-on-windows/
meaning for User space the address and that page will stay the same,
and for Driver/Kernel space where it is read+write it might be change address on boot when KASLR is enabled.

[kopernikus]

Es gibt eine fertige Unit auf GitHub