Página 1 de 1
Função p/ detectar o Sstema Operacional que está instalado?
Enviado: 03 Jun 2006 15:40
por frank_fpc
Alguns de vcs tem uma função para detectar o Sistema Operacional que está sendo usado pelo computador???
Obrigado pela ajuda!
Enviado: 04 Jun 2006 00:21
por clauber
IF OS()$"DOS 5.00" // se WIN XP
Mensa([win xpeta])
Else
Mensa([win 9x])
ENDIF
Enviado: 05 Jun 2006 14:47
por 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!!!
Enviado: 05 Jun 2006 17:58
por Daniel
so uma ideia
run ver > versao.txt
cVersao:= SubStr(AllTrim(memoread("versao.txt")), 1, 20)
if cVersao == 'Microsoft Windows XP'
.......
Else
.......
EndIf
Enviado: 06 Jun 2006 16:16
por 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!