Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to detect which OS 's under runnig myapp.exe
Message
From
23/09/2003 10:00:52
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00831450
Message ID:
00831463
Views:
13
>Hi All,
>i've a backup-restore utility form . i wantto detect which OS's under running myapp.exe (under win9.x or NT/2000/XP) because i'll enabled-disabled some options on the form . How can i do this ?
>
>TIA
>
>PS: OS() gives me "Windows 5.00" , how is the others win9.x or NT or ME or XP ?
oSysInfo = CREATEOBJECT("SysInfo.sysinfo")

DO CASE
  CASE oSysInfo.OSPlatform = 0
    WAIT WINDOW [Win32s]
  CASE oSysInfo.OSPlatform = 1
    WAIT WINDOW [Windows 95/98/ME]
  CASE oSysInfo.OSPlatform = 2
    DO CASE
      CASE oSysInfo.OSVersion=5
	WAIT WINDOW [Windows 2000]
      CASE oSysInfo.OSVersion=5.01
	WAIT WINDOW [Windows XP]		
      CASE oSysInfo.OSVersion<5	
	WAIT WINDOW [Windows NT]
    ENDCASE
ENDCASE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform