|
MIRE PRUEBE CON ESTE CODIGO..
SIRVE PARA WINDOWS LE DICE LA VERSION Y HASTA QUE SP ES...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString version;
SistOpe.dwOSVersionInfoSize=sizeof(OSVERSIONINFO);
i=GetVersionEx(&SistOpe);
if(i)
switch (SistOpe.dwMajorVersion)
{
case 4:
switch (SistOpe.dwMinorVersion)
{
case 0://W95 o WNT
if (SistOpe.dwPlatformId ==VER_PLATFORM_WIN32_WINDOWS)
{//W95
version=AnsiString("Windows 95 ");
}else
{//WNT;
version=AnsiString("Windows NT 4.0 ");
}
break;
case 10://W98
version=AnsiString("Windows 98 ");
break;
case 90://WMe
version=AnsiString("Windows Me ");
break;
default://Desconocido
version=AnsiString("Desconocido ");
}
break;
case 3:
version=AnsiString("Windows NT 3.51 ");
break;
case 5:
switch (SistOpe.dwMinorVersion)
{
case 0://W2k
version=AnsiString("Windows 2000 ");
break;
case 1://WXP
version=AnsiString("Windows XP ");
break;
case 2://W2003
version=AnsiString("Windows 2003 ");
break;
default:
version=AnsiString("Desconocido ");
}
break;
case 6:
switch(SistOpe.dwMinorVersion)
{
case 0:
version=AnsiString("Windows Vista ");
break;
default:
version=AnsiString("Desconocido ");
}
break;
default:
version=AnsiString("Desconocido ");//MessageBox(NULL,"Desconocido","Sistema Operativo",NULL);
}
Label1->Caption=version+SistOpe.szCSDVersion;
}
LA VERDAD YO EN LINUX NO TRABAJO Y NO SABRIA DECIRLE SY HAY TAMBIEN FUNCIONA PERO ME PARECE QUE SI..
BUENO ESPERO QUE SEA DE UTILIDAD
SALUTE....
|