Xailer & OZ Software

Antes funcionaba pero de repente mi máquina ya no sabe que es ni que SO
tiene. Si hago esto:
With ObJect tSysver():New()
msginfo(:lIsWinXP)
msginfo(:lIsWinXP64)
msginfo(:lIsWinServer2003)
msginfo(:lIsWin2000)
msginfo(:nPlatformID)
End
Los 4 primeros me dicen .F. y el último 0
¿Estaré haciendo algo mal? ¿Se habrá vuelto mi máquina gilip....?
¿Alguien lo puede corroborar?
Muchas gracias a todos.

Saludos:
With Object TSysver():New():Create()
José Ramón Castro Polinio
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=44c8f2f9@news.xailer.com...]44c8f2f9@news.xailer.com...[/email]
> Antes funcionaba pero de repente mi máquina ya no sabe que es ni que SO
> tiene. Si hago esto:
>
> With ObJect tSysver():New()
> msginfo(:lIsWinXP)
> msginfo(:lIsWinXP64)
> msginfo(:lIsWinServer2003)
> msginfo(:lIsWin2000)
> msginfo(:nPlatformID)
> End
>
> Los 4 primeros me dicen .F. y el último 0
>
> ¿Estaré haciendo algo mal? ¿Se habrá vuelto mi máquina gilip....?
> ¿Alguien lo puede corroborar?
>
> Muchas gracias a todos.

Saludos:
Me vuelvo a contestar yo mismo, he probado como tú lo has puesto y no
funciona pero con Create() sí
Asi que si pones With Object TSysver:Create() te funciona en cambio With
Object TSysver:New() no funciona.
José Ramón Castro Polinio
"José R.Castro" <jrcpoli@terra.es> escribió en el mensaje
news:44c907dc$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Saludos:
>
> With Object TSysver():New():Create()
>
> José Ramón Castro Polinio
>
> "Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
> news:[email=44c8f2f9@news.xailer.com...]44c8f2f9@news.xailer.com...[/email]
>> Antes funcionaba pero de repente mi máquina ya no sabe que es ni que SO
>> tiene. Si hago esto:
>>
>> With ObJect tSysver():New()
>> msginfo(:lIsWinXP)
>> msginfo(:lIsWinXP64)
>> msginfo(:lIsWinServer2003)
>> msginfo(:lIsWin2000)
>> msginfo(:nPlatformID)
>> End
>>
>> Los 4 primeros me dicen .F. y el último 0
>>
>> ¿Estaré haciendo algo mal? ¿Se habrá vuelto mi máquina gilip....?
>> ¿Alguien lo puede corroborar?
>>
>> Muchas gracias a todos.
>
>
>

Muchas gracias, lo tení­a puesto de hace meses y jurarí­a que me anduvo en
algún momento, pero si esta es la solución me vale.
osé a.Castro escribió:
> Saludos:
>
> Me vuelvo a contestar yo mismo, he probado como tú lo has puesto y no
> funciona pero con Create() sí­
>
> Asi que si pones With Object TSysver:Create() te funciona en cambio With
> Object TSysver:New() no funciona.
>
> José Ramón Castro Polinio
>
> "José R.Castro" <jrcpoli@terra.es> escribió en el mensaje
> news:44c907dc$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Saludos:
>>
>> With Object TSysver():New():Create()
>>
>> José Ramón Castro Polinio
>>
>> "Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
>> news:[email=44c8f2f9@news.xailer.com...]44c8f2f9@news.xailer.com...[/email]
>>> Antes funcionaba pero de repente mi máquina ya no sabe que es ni que SO
>>> tiene. Si hago esto:
>>>
>>> With ObJect tSysver():New()
>>> msginfo(:lIsWinXP)
>>> msginfo(:lIsWinXP64)
>>> msginfo(:lIsWinServer2003)
>>> msginfo(:lIsWin2000)
>>> msginfo(:nPlatformID)
>>> End
>>>
>>> Los 4 primeros me dicen .F. y el último 0
>>>
>>> ¿Estaré haciendo algo mal? ¿Se habrá vuelto mi máquina gilip....?
>>> ¿Alguien lo puede corroborar?
>>>
>>> Muchas gracias a todos.
>>
>>
>
>