TIP: Click on subject to list as thread! ANSI
echo: delphi
to: HINRICH DONNER
from: OLE ALMIND MORTENSEN
date: 1996-09-24 08:17:00
subject: Windows Version

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)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.