Função p/ detectar o Sstema Operacional que está instalado?

[frank_fpc]

Alguns de vcs tem uma função para detectar o Sistema Operacional que está sendo usado pelo computador???

Obrigado pela ajuda!

[clauber]

IF OS()$"DOS 5.00" // se WIN XP
Mensa([win xpeta])
Else
Mensa([win 9x])
ENDIF

[frank_fpc]

Essa função está desatualizada, além de dar a resposta de DOS 5.0, de acordo com o a máquina se não estou errado, porque lembro que algum tempo atrás fazia isso e quando fazia em algumas máquinas dava uma versão diferente, como 7.0, 5.0, 6.0 e por ai vai, estou com algo mente que talvez funcione, se funcionar posto, aqui, mas tem outro tópico meu que realmente está me dixando de orelha em pé e nesse gostaria de obter mais ajuda e mais urgente se possível, mas obrigado pelo alternativa.

Valeu!!!

[Daniel]

so uma ideia

run ver > versao.txt

cVersao:= SubStr(AllTrim(memoread("versao.txt")), 1, 20)
if cVersao == 'Microsoft Windows XP'
.......
Else
.......
EndIf

[frank_fpc]

Era nessa direção que eu pretendia ir mesmo amigo Daniel, valeu pela dica, já uso algo parecido para saber o número serial do HD e funciona perfeitamente.

Obrigado pela dica!