Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to detect which OS 's under runnig myapp.exe
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00831450
Message ID:
00831463
Vues:
14
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform