Sysinfo.ocx

[apoeti]

¡Hola! Esta librería tiene como fin informar sobre el sistema sobre el que se ejecuta el programa que la contiene. Una de sus opciones, osplatform, dice sobre qué sistema operativo concreto de Microsoft se ejecuta. Mi pregunta es ¿Hay alguna versión actualizada de este .ocx que diga también si el sistema operativo es Windows Vista o 7? (La que tengo solo dice hasta XP)

Saludos.

[Dessa]

Hola, un provisorio. ?

Código [Seleccionar] Expandir



'KERNEL32
Private Declare Function GetVersion Lib "KERNEL32" () As Long


Private Sub Form_Load()
  MsgBox (GetVersion And &HFF) & "." & (GetVersion() And &HFF00&) \ &H100
End Sub



[oads]

No eso no tiene mucho que ver
utiliza la llamadas a las DLL
IMPROVISA

PRIVATE FUNCTION [NOMBRE DE LA FUNCION] LIB [NOMBRE DE LA DLL][ESTRUCTURA DE LA FUNCION]

Y MIRA EL VISOR DE API DE VB 6.0