Como vocês fazem para dar essas informações diretamente pelo sistema de vocês? Da forma que uso funciona, mas gostaria de saber:
Function Main()
Local cArchiBit, cOsInfo
If MyRun( "wmic os get osarchitecture > osarchitecture.txt", .T. )
cArqBit := Hb_MemoRead( "osarchitecture.txt" )
cArqBit := Upper( StrTran( cArqBit, Chr( 0 ) ) )
cArqBit := If( "32-BIT" $ Upper( cArqBit ), " - 32-Bit", " - 64-Bit" )
Else
cArqBit := ""
EndIf
cOsInfo := "Seu Sistema Operacional:;;"
cOsInfo += OS() + cArchiBit
Hb_Alert( cOsInfo )
Return Nil
Function MyRun( cComando, lWait ) // executa programa externo
Local oShell, lRet
lWait := If( Empty( lWait ), .F., .T. ) // Se .T. aguarda o programa fechar, se .F. não aguarda...
oShell := CreateObject( "WScript.Shell" )
lRet := oShell:Run( "%comspec% /c " + cComando, 0, lWait )
oShell := Nil
Return If( lRet = 0, .T., .F. )