![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
Supongo que si usas cualquiera de las rutinas que hay para obtener la version del sistema, en cada caso te devolverá una diferente.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
#2
|
||||
|
||||
|
Cita:
Código:
void __fastcall TmainForm::Button2Click(TObject *Sender)
{
TOSVersionInfo *x;
int majorVer, minorVer;
x->dwOSVersionInfoSize = sizeof( TOSVersionInfo ); //aca es donde me sale el error al momento de dar click.
if ( GetVersionEx( x ) )
{
majorVer = x->dwMajorVersion;
minorVer = x->dwMinorVersion;
switch( x->dwPlatformId )
{
case VER_PLATFORM_WIN32_NT:
if ( majorVer <= 4 ) ShowMessage("cOsWinNT");
else
if ( ( majorVer == 5 ) && ( minorVer == 0 ) ) ShowMessage("cOsWin2000");
else
if ( ( majorVer == 5) && ( minorVer == 1 ) ) ShowMessage("cOsWinXP");
else
ShowMessage("desconocido");
break;
case VER_PLATFORM_WIN32_WINDOWS:
if ( ( majorVer == 4 ) && ( minorVer == 0 ) ) ShowMessage("cOsWin95");
else
if ( ( majorVer == 4 ) && ( minorVer == 10 ) )
{
if ( x->szCSDVersion[ 1 ] == 'A' ) ShowMessage("cOsWin98SE");
else
ShowMessage("cOsWin98");
}
else
if ( ( majorVer == 4) && ( minorVer == 90 ) ) ShowMessage("cOsWinME");
else ShowMessage("desconocido");
break;
}
}
else
{
ShowMessage("desconocido");
}
}
Gracias. |
|
#3
|
||||
|
||||
|
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
switch ((char)GetVersion())
{
case 5: ShowMessage("eQuispe"); break;
case 6: ShowMessage("Vista"); break;
default: ShowMessage("Dinosaurio?");
}
}
|
|
#4
|
||||
|
||||
|
Cita:
jejeje, "dinosaurio". Gracias. Última edición por Negriz fecha: 02-09-2008 a las 21:02:30. |
|
#5
|
||||
|
||||
|
Gracias va de maravilla, jejejetodavia me rio con lo de dinosaurio.
SAludos y gracias Última edición por Negriz fecha: 02-09-2008 a las 21:02:43. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| ¿Saber si es un vista x32 o x64? | mayusod | API de Windows | 2 | 17-03-2008 13:26:58 |
| Como codifico las transacciones en delphi, y como jalo una vista desde SQL Server? | Felipe | Conexión con bases de datos | 2 | 06-01-2008 03:00:04 |
| Saber de Delphi 2007 y W. Vista | José Luis Garcí | Varios | 2 | 07-11-2007 08:53:25 |
| ¿Como saber que mi programa esta corriendo sobre Windows Vista? | xander | API de Windows | 3 | 22-09-2007 00:25:40 |
| Como Llamar a una Vista? | Alejandro73 | SQL | 3 | 18-08-2006 18:23:43 |
|