pues eso mi duda es esa. Yo tenia pensado en esto:
si existe un fichero tipico del xp seria xp y sino existe pues seria vista.

se os ocurre alguna forma mejor de saberlo?

[Enlace externo eliminado para invitados]
pero alomejor mas fácil se puede leer un valor en el registro y ver si es xp o vista
saludos

eeiii tio muxas gracias. habe si termino mi proyecto y lo posteo

Aca tenes una funcion que hace eso, pero solo hasta windows XP o sea XP y anteriores.
Esto lo saque de un cliente de chat Yaheh, del cual tengo el codigo fuente.
El que creo el cliente este lo saco de Microsoft porque dejo hasta el link.

[codigo VB]
'Courtesy of Microsoft. [Enlace externo eliminado para invitados] ... -US;189249
Public Function WindowsVersion() As String
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer

osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)

With osinfo
Select Case .dwPlatformId

Case 1

Select Case .dwMinorVersion
Case 0
WindowsVersion = "Windows 95"
Case 10
WindowsVersion = "Windows 98"
Case 90
WindowsVersion = "Windows Me"
End Select

Case 2
Select Case .dwMajorVersion
Case 3
WindowsVersion = "Windows NT" ' 3.51"
Case 4
WindowsVersion = "Windows NT" ' 4.0"
Case 5
If .dwMinorVersion = 0 Then
WindowsVersion = "Windows 2000"
Else
WindowsVersion = "Windows XP"
End If
End Select

Case Else
WindowsVersion = "Failed"
End Select

End With
End Function
[Fin codigo VB]

Lee esta cadena de registro y listo : 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindoWS NT\CurrentVersion\Productname'

lol

SharkI escribió:Lee esta cadena de registro y listo : 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindoWS NT\CurrentVersion\Productname'

lol

En todos los sistemas operativos no se encuentra esa cadena ^^ por lo que podria hacer un arreglo, primero intentar leer la cadena y si el valor es nulo entonces lo hace por APIS

Como dice Skyweb07 la mejor opción es usando el API GetVersionExA
Solo checa ke valores de retorno te da en cada sistema para ke vallas generando tus cases

Paso el código fuente en vb6 para ejemplo (zip).

jajaajaj muxisimas grax a todos pero ace un buen tempo qe arregle er problema de compatibilidad :D
muxas gracias a todos!!!

Ok me alegro que lo hayas solucionado.
Seria bueno que editaras el post y pusieras [Solucionado] en el titulo asi alguien lo cierra, o que lo cierres si es que vos podes.

Mensaje solucionado con zip de ejemplo
Gracias por seguir aki enviando dudas y soluciones.