Hej Hinrich!
S›ndag 22. September 1996 kl.19:09 skrev Hinrich Donner til All:
HD> does anybody know how I can get the version of the Windows system?
HD> GetVersionEx returns with False on my system.
I have just looked into the problem, and solved it. :)
Here we go:
Procedure MyHelpToYou;
Var
Info : TOsVersionInfo;
Begin
Info.DwOsVersionInfoSize:=SizeOf(Info);
If GetVersionEx(Info)=True Then
Showmessage(IntToStr(Info.DwMajorVersion)+'.'+
IntToStr(Info.DwMinorVersion));
End;
This should work just fine. :)
Mvh. Ole
Team S.A.R.R.
--- GoldED/386 2.51.A0901+
---------------
* Origin: Nightcall Point (2:237/10.150)
|