95/98/nt/2000/me 
Author Message
 95/98/nt/2000/me

I have to verify (in a clipper 5 program) what opertive system is
running. I think to check the presence of significative files.
What solution ?


Tue, 29 Apr 2003 03:00:00 GMT  
 95/98/nt/2000/me

Quote:

> I have to verify (in a clipper 5 program) what opertive system is running.
> I think to check the presence of significative files. What solution ?

There was a discussion about this subject a few weeks back, revolving around
the idea of using OSLib (see URL in sig) and using the version number
function to check version details.

A well placed search on Deja <URL:http://www.deja.com/usenet/> should get
you the content of that thread.

--
Take a look in Hagbard's World: |   w3ng - The WWW Norton Guide reader.
http://www.hagbard.demon.co.uk/ |     eg - Norton Guide reader for Linux.
http://www.acemake.com/hagbard/ |    weg - Norton Guide reader for Windows.
Free software, including........| dgscan - DGROUP scanner for Clipper.



Tue, 29 Apr 2003 03:00:00 GMT  
 95/98/nt/2000/me

Quote:

>I have to verify (in a clipper 5 program) what opertive system is
>running. I think to check the presence of significative files.
>What solution ?

Try This

*!*****************************************************************************
*!
*!       Function: O_SYS()
*!
*!      Called by: MAIN               (procedure in DA.PRG)
*!
*!          Calls: WARBLE()           (function  in ?)
*!               : WINNT()            (function  in DI_PROC.PRG)
*!               : WINME()            (function  in DI_PROC.PRG)
*!               : WIN95()            (function  in DI_PROC.PRG)
*!               : WIN98()            (function  in DI_PROC.PRG)
*!               : ALTD()             (function  in ?)
*!
*!*****************************************************************************
FUNC O_Sys()

LOCAL O_Sys

//---------------------
//---------------------
//CLS

//WARBLE(2)
//INKEY(0)
//---------------------
//---------------------

DO CASE
CASE Win95()
  O_Sys := "Win 95"

CASE Win95B_98()
  O_Sys := "Win 95B or Win 98"

CASE Win98Se()
  O_Sys := "Win 98 SE"

CASE WinME()
  O_Sys := "Win Me"

CASE WinNT()
  O_Sys := "Win NT"

//CASE Win2000()
//  O_Sys := "Win 2000"

OTHERWISE
  O_Sys := "DOS " + DOSVERS()

ENDCASE

RETURN O_Sys
*!*****************************************************************************
*!
*!       Function: WIN9X()
*!
*!      Called by: WKSTDETAILS        (procedure in DI_SN_RM.PRG)
*!               : DI_SN_RM()         (function  in DI_SN_RM.PRG)
*!               : BOTLINE()          (function  in DI_PROC.PRG)
*!               : FORMAT()           (function  in DI_PROC.PRG)
*!               : LFNSHORT()         (function  in DI_PROC.PRG)
*!               : CONVLFNSHORT()     (function  in DI_PROC.PRG)
*!               : ZIPEJECT           (procedure in DI_PROC.PRG)
*!
*!          Calls: WINNT()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win9x()
* Return True if Win 95/98/Me or Win NT

LOCAL WIN_9x := .F.

IF DOSVERS() >= 7
   WIN_9x := .T.
ENDIF

RETURN(WIN_9x .OR. WinNT())
*!*****************************************************************************
*!
*!       Function: WIN95()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win95()
* Return True if Win 95

LOCAL WIN95 := .F.

IF DOSVERS() >= 7.0 .AND. DOSVERS() < 7.1
   WIN95 := .T.
ENDIF

RETURN WIN95
*!*****************************************************************************
*!
*!       Function: WIN98()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win95B_98()
* Return True if Win95B or Win 98

LOCAL WIN95B_98 := .F.

IF DOSVERS() == 7.1
   WIN95B_98 := .T.
ENDIF

RETURN WIN95B_98
*!*****************************************************************************
*!
*!       Function: WIN98()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win98SE()
* Return True if Win 98 SE

LOCAL WIN98SE := .F.

IF DOSVERS() > 7.1 .AND. DOSVERS() < 8
   WIN98SE := .T.
ENDIF

RETURN WIN98SE
*!*****************************************************************************
*!
*!       Function: WINME()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC WinMe()
* Return True if Win Me

LOCAL WinMe := .F.

IF DOSVERS()  == 8
   WinMe := .T.
ENDIF

RETURN WinMe
*!*****************************************************************************
*!
*!       Function: WINNT()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!               : BOTLINE()          (function  in DI_PROC.PRG)
*!               : WIN9X()            (function  in DI_PROC.PRG)
*!               : LFNSHORT()         (function  in DI_PROC.PRG)
*!               : CONVLFNSHORT()     (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC WinNT()
* Return True if Win NT

LOCAL WinNT := .F.

IF "NT" $ UPPER(GETENV("OS"))
   WinNT := .T.
ENDIF

RETURN(WinNT)

R.C.Electronics - www.rce.com.au
Cheers from Geoff Cohen (0417 657 465)

Any technology that is distinguishable from Magic
 is insufficiently advanced



Fri, 02 May 2003 10:58:11 GMT  
 95/98/nt/2000/me
Jeff,

Do you have the dosvers() function to go with this?

Also noticed the code says that the dosvers() function

1. is a string function

  O_Sys := "DOS " + DOSVERS()

2. is a numeric function

  IF DOSVERS() >= 7

Just a little confusing. :-)

Steve

ps.

Added a Warble procedure to your posted code

PROCEDURE Warble2(count)
* REMARK..: Personally, I don't know what a "warble" sounds like
DO WHILE count > 0
   TONE(600,1)
   TONE(800,1)
   TONE(1200,1)
   TONE(1600,3)
   count--
ENDDO

Quote:


>>I have to verify (in a clipper 5 program) what opertive system is
>>running. I think to check the presence of significative files.
>>What solution ?
>Try This

>*!*****************************************************************************
>*!
>*!       Function: O_SYS()
>*!
>*!      Called by: MAIN               (procedure in DA.PRG)
>*!



Mon, 05 May 2003 03:00:00 GMT  
 95/98/nt/2000/me

Quote:
>Do you have the dosvers() function to go with this?

It's part of Funcky - I don't consider you can write Clipper without
Funcky.

R.C.Electronics - www.rce.com.au
Cheers from Geoff Cohen (0417 657 465)

Any technology that is distinguishable from Magic
 is insufficiently advanced



Thu, 08 May 2003 08:15:43 GMT  
 
 [ 5 post ] 

 Relevant Pages 

1. desktops on 95/98/NT/2000

2. AdaGIDE 7.00 release (Ada GUI IDE for Windows 95,98,ME,NT,2000,XP)

3. was Re: 4.01Graphics Problem with Windows 98 but not NT or 2000

4. 4.01 - Graphics Problem with Windows 98 but not NT or 2000

5. 95, 98 & Win NT

6. 95, 98 & Win NT

7. Clipper development for Windows 95, 98 & NT

8. Native XDS-x86 2.32 and XDS-C 2.32 for Windows NT/95/98 released

9. PL/I Comipler for Window NT/95/98

10. REXX API for 95/98/NT Sample Code?

11. Native XDS-x86 2.32 and XDS-C 2.32 for Windows NT/95/98 released

12. Windows 95/98/NT assembler programming

 

 
Powered by phpBB® Forum Software