Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MM and Win2K
Message
From
13/03/2000 07:40:51
Rex Mahel
Realm Software, Llc
Ohio, United States
 
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Title:
Miscellaneous
Thread ID:
00343974
Message ID:
00344904
Views:
19
Kevin,

How about the GetWindowsOs() function in Utility.

It is called in the cBaseApp.Init().

Don't know where it is used from there, but the options are "WINNT", "WIN95", and "WIN31"

Thanks

Rex

>Rex,
>
>>Just wondering if you have updated the framework for Win2K?
>
>>One place I found is in CAppBase.GetSystemSettingClass() replacing the following line:
>>
>>CASE UPPER(OS()) = "WINDOWS NT" OR LEFT(UPPER(OS()),9) = "WINDOWS 4"
>>
>>with
>>
>>CASE UPPER(OS()) = "WINDOWS NT" OR LEFT(UPPER(OS()),9) = "WINDOWS 4" OR LEFT(UPPER(OS()),9) = "WINDOWS 5".>
>
>Actually, I just did last week...As soon as we get our new web site on line (which should be soon!) I'll post this and a few other changes. However, for now...
>
>The only change I've needed to make (so far) has been in the GetSystemSettingClass() method. However, I've changed this method completely, since it really doesn't need to check for 16-bit Windows at all.
>
>Here's all the code for the updated CAppBase.GetSystemSettingClass() method:
>
>LOCAL lcSystemSettingClass
>
>IF !This.lUseINIFile
> *--------------------------------------------------------------
> *-- Define the cRegistry as the class handling system settings.
> *--------------------------------------------------------------
> lcSystemSettingClass = "Registry"
>
> *-----------------------
> *-- Get the registry key
> *-----------------------
> This.cRegistryKey = This.GetRegistryKey()
>
> *------------------------------
> *-- Initialize the INI property
> *------------------------------
> This.cINIFile = ""
>ELSE
> *-------------------------------------------------------
> *-- Assume the class that is handling the system setting
> *-- is the CINIFile class (16 Bit OS
> *-------------------------------------------------------
> lcSystemSettingClass = "INIFile"
>
> *--------------------------------------------------------
> *-- Initialize the cRegistryKey property, again under the
> *-- assumption we are using a 16 Bit OS
> *--------------------------------------------------------
> this.cRegistryKey = ""
>
> *--------------------------------------------------
> *-- Retrieve the name of the application's INI file
> *--------------------------------------------------
> This.cINIFile = This.GetINIFile()
>ENDIF
>
>RETURN lcSystemSettingClass
>
>Regards,
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform