elitenet Posted May 11, 2005 Report Share Posted May 11, 2005 Alguem por caso sabe como idenificar qual a versao do windows que esta sendo utilizada pelo programa? Obs: Ja testei as funcoes cWinVersion, GetVersion, IsWin95, IsWinNt e IsWin2000 e nao funcionam, pois cada uma retorna uma coisa e voce nao tem como saber qual esta correta. Ou seja, tem funcoes que entram em conflito uma com a outra, sendo que as duas deveriam retornar a mesma coisa. Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Quote Link to comment Share on other sites More sharing options...
personal Posted May 11, 2005 Report Share Posted May 11, 2005 GetEnv("OS") Editado por - personal on 11/05/2005 15:09:51 Quote Link to comment Share on other sites More sharing options...
elitenet Posted May 11, 2005 Author Report Share Posted May 11, 2005 Mas isso funcionara com todas as versoes do windows 95 para frente? Pois pelo que sei o GetEnv pega o conteudo de uma variavel de memoria carregada na inicializacao! Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Editado por - elitenet on 11/05/2005 15:56:11 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted May 11, 2005 Report Share Posted May 11, 2005 Marcio, Testei e não deu certo. _var=GETENV("OS") msgalert(_var,......) Também preciso saber, por exemplo, se o usuário está num XP, NT, 98 etc. Alguém pode ajudar?? Obrigado Ass. Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Quote Link to comment Share on other sites More sharing options...
personal Posted May 11, 2005 Report Share Posted May 11, 2005 Desculpe, falha nossa. Isto funciona somente com FWH/xHarbour Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted May 12, 2005 Report Share Posted May 12, 2005 Amigos, Não tem mesmo como identificar pelo FW/Clipper se o usuário está num 98, XP, etc ??? Ass. Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Quote Link to comment Share on other sites More sharing options...
elitenet Posted May 12, 2005 Author Report Share Posted May 12, 2005 Amigo Personal Pelo que testei a sua sugestão funciona com Me, XP e NT. Pois os mesmos declaram a variavel de memoria OS na inicializacao do sistema. Mas no Window 98 e 95 so funcionara se declarar a variavel OS no autoexec.bat do sistema operacional. Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 12, 2005 Report Share Posted May 12, 2005 Olá... o Windows tem o programa WINVER.EXE, chamando com o WinExec( "WinVer.Exe", 0 ) // -> Não te serve? Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
elitenet Posted May 12, 2005 Author Report Share Posted May 12, 2005 Caro Kapiaba Nao resolve meu problema pois o mesmo nao me dará um retorno que possa fazer comparacoes. Pois o real motivo de saber a versao do windows e para poder comparar para o sistema saber o que usar em cada versao. Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Quote Link to comment Share on other sites More sharing options...
eajunior Posted May 13, 2005 Report Share Posted May 13, 2005 Ola pessoal, para ver a versão do seu sistema estou postando em dicas a classe TSysInfo que alem da versão podem ver toda a configuração da maquina. Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 13, 2005 Report Share Posted May 13, 2005 /* // IsWin2000() // IsWinXP() // IsNTPreWin2K() // IsNTWorkstation() // IsNTServer() // IsWin2000Prof() // IsWin2000Server() */ IF IsWinNT() .OR. IsWin2000() // Para Windows XP/NT e 2000 Result := ShellExecute(oWndMain:hWnd, Nil,'C:\WINNT\rundll32.Exe', ; cString, Nil, SW_SHOW) ELSE // -> Se for 95 ou 98 ou ME Result := ShellExecute(oWndMain:hWnd, Nil,'C:\WINDOWS\rundll32.Exe', ; cString, Nil, SW_SHOW) ENDIF Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.