5 replies to this topic

[monchito_elroro]

Buenas amigos, otra vez visitandoles con una consulta...
lo que pasa es que deseo usar un comando para saber la versión de windows en donde estoy, he estado buscando y buscando y me he encontrado con varios códigos, aunque la mayoría solo era para todos los windows menos para win 7, entonces prácticando y probando resulta que estoy usando este código:

delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
  if (Win32MajorVersion=6) and (Win32MinorVersion=1) then ShowMessage('Tienes Windows 7');
  if (Win32MajorVersion=6) and (Win32MinorVersion=0) then ShowMessage('Tienes Windows Vista');
  if (Win32MajorVersion=5) and (Win32MinorVersion=1) then ShowMessage('Tienes Windows XP');
 
End;

El cual me está funcionando de maravilla, pero quisiera saber de ustedes expertos si está bien
formulado el código y si estaría bien si lo sigo usando.


Gracias de antemano..... 

[poliburro]

Gracias por compartir tu solución amigo...

Yo no valido la versión de windows en mis sistemas    así que dejaré para los más avespados la opinión ténica,

[monchito_elroro]

Entonces espero la observación de los expertos... 

[Delphius]

Hola monchito_elroro,
Asi como está presentado el código no sugiere más problemas; ya mucho más no se puede mejorar. No veo porqué el compilador debería protestar a menos que hubiera un error.
O al menos es lo que yo entiendo a lo que te refieres cuando dices "si está bien formulado".

Ahora bien si tu duda va a si es la manera correcta, o al menos si en Lazarus hay alguna otra forma, no te sabría decir. Si bien ya dispongo de Lazarus (en realidad de CodeTyphon, y en Linux) aún no me he leído la documentación en profundidad como para responderte.

Lo que me extraña es justamente esos 6.1, 6.0, 5.1. Si tu dices que así como está funciona es porque así es, y en algún lado debe estar documentado que efectivamente 6.1 hace a W7, y así respectivamente. Pero no encuentro específicamente en donde.

Medio buscando en la red encontré algo parecido a tu código, que detecta en que SO se está ejecutando, MAC, Windows, DOS, o Linux:
http://www.lazarus.f...p?topic=15390.0

Saludos,

[monchito_elroro]

Buenas con todos, y gracias delphius por tu comentario.... si estoy bien cuando lo comenze a buscar probé con ese código sacado de un ejemplo en inglés... y había una página que lo explicaba, exactemente:

http://msdn.microsof...2(v=vs.85).aspx

Ahí se darán cuenta que la version (por ejemplo de windows 7) es 6.1 y cuando investigué supe que el primer número (6) es el  "MajorVersion" y el segundo (1) despues del punto es el "MinorVersion"

Hoy lo he probado otra vez en los tres sistemas (WinXP, vista y 7) y funciona bien...

Sólo quería saber su opinión y compartirlo con todos....

[Delphius]

Gracias monchito_elroro por el enlace. Ni se me ocurrió pensar y buscar en el MSDN  LOL

Saludos,