Determine Windows edition

[WojTec]

In Vista+ there is GetProductInfo.
How to do it in XP-?

[Steku]

For older Versions you could use a component, supplied
by a board member.

Have a look here: http://www.delphipraxis.net/97999-%5...erkennung.html

Greetings
Steku

[WojTec]

Quite nice :)
But if I see well, it doesn't support W8 :(

[DeddyH]

Maybe you want to have a look at here. IIRC the example uses DelphiWorks, to which there' s a link within the post.

[uligerhardt]

Zitat:

Zitat von WojTec (Beitrag 1206218)

Quite nice :)
But if I see well, it doesn't support W8 :(

You can try to dynamically load GetProductInfo with GetProcAddress. If it's there use it, otherwise use the component.

[WojTec]

This component is great, I asked author if he plan do update.

[mkinzler]

No component but in JCLSysinfo.pas as part of JCL

[WojTec]

I tried JCL, but the one is not acceptable for me: edition function for XP is depended on registry nor API or version. For example on my virualized XP it retunrs empty string, because in registry I have "Microsoft Windows XP".

Do you also think that JCL was entry point for TWindowsVersionsInfo? :)

BTW: Could you test it for me on W8 (I don't have it)?