|
|
 |
 |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
 |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
14-04-2005
|
||||
|
||||
|
Version windows'??
Saludos
Quiero presentar edit o label... la version de windows en la cual se esta corriendo la aplicacion. Cual es la variable que usa delphi? Hasta luego y Grax.
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! 
|
|
#2
14-04-2005
|
|||
|
|||
|
Extraido de "algun lao que no recuerdo..."
Código:
unit WVersion;
interface
uses
Windows, SysUtils;
function GetWindowsVersion: String;
implementation
function GetWindowsVersion: String;
const
cOsUnknown : Integer = -1;
cOsWin95 : Integer = 0;
cOsWin98 : Integer = 1;
cOsWin98SE : Integer = 2;
cOsWinME : Integer = 3;
cOsWinNT : Integer = 4;
cOsWin2000 : Integer = 5;
cOsWinXP : Integer = 6;
var
osVerInfo : TOSVersionInfo;
majorVer,
minorVer,
VersionCode: Integer;
begin
osVerInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );
if ( GetVersionEx( osVerInfo ) ) then
begin
majorVer := osVerInfo.dwMajorVersion;
minorVer := osVerInfo.dwMinorVersion;
case ( osVerInfo.dwPlatformId ) of
VER_PLATFORM_WIN32_NT : { Windows NT/2000/XP }
begin
if ( majorVer <= 4 ) then VersionCode := cOsWinNT
else
if ( ( majorVer = 5 ) and ( minorVer= 0 ) ) then VersionCode := cOsWin2000
else
if ( ( majorVer = 5) and ( minorVer = 1 ) ) then VersionCode := cOsWinXP
else
VersionCode := cOsUnknown;
end;
VER_PLATFORM_WIN32_WINDOWS : { Windows 9x/ME }
begin
if ( ( majorVer = 4 ) and ( minorVer = 0 ) ) then VersionCode := cOsWin95
else
if ( ( majorVer = 4 ) and ( minorVer = 10 ) ) then
begin
if ( osVerInfo.szCSDVersion[ 1 ] = 'A' ) then VersionCode := cOsWin98SE
else VersionCode := cOsWin98;
end
else
if ( ( majorVer = 4) and ( minorVer = 90 ) ) then VersionCode := cOsWinME
else VersionCode := cOsUnknown;
end;
else
VersionCode := cOsUnknown;
end; { Final del Case}
end
else
VersionCode := cOsUnknown; {Final del if}
if ( VersionCode = cOsUnknown ) then
Result := '(sistema no reconocido)'
else if ( VersionCode = cOsWin95 ) then
Result := 'Microsoft Windows 95'
else if ( VersionCode = cOsWin98 ) then
Result := 'Microsoft Windows 98'
else if ( VersionCode = cOsWin98SE ) then
Result := 'Microsoft Windows 98 Second Edition'
else if ( VersionCode = cOsWinME ) then
Result := 'Microsoft Windows Millennium Edition'
else if ( VersionCode = cOsWinNT ) then
Result := 'Microsoft Windows NT'
else if ( VersionCode = cOsWin2000 ) then
Result := 'Microsoft Windows 2000'
else if ( VersionCode = cOsWinXP ) then
Result := 'Microsoft Windows XP'
else
Result := 'Microsoft Windows';
Result:= Result + ' (Build '+IntToStr(osVerInfo.dwBuildNumber)+') ' + osVerInfo.szCSDVersion;
end;
end.
|
|
#3
14-04-2005
|
||||
|
||||
|
Wow
 Gracias. Funciono a la perfeccion No crei que fuera tan complicado. Aunque pienso que deberia haber otra forma  .Saludos
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
|
|
#4
16-04-2005
|
||||
|
||||
|
Saludos.
Estuve probando la funcion que me ha ofrecido ajmacias. Lo probe con el windows experimental Longhorn para ver si funcionaba. El resultado obtenido es que no arroja la version de windows esta corriendo. Hay otra forma?
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
|
|
#5
16-04-2005
|
||||
|
||||
|
vtdeleon no estaría de más que mirases en las propiedades de Mi Pc bajo loghorn y dijeras el número de compilación que tiene, para actualizar la rutina.
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias.
|
|
#6
16-04-2005
|
||||
|
||||
|
Cita:
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
|
|
#7
17-04-2005
|
||||
|
||||
|
vaya, pues no nos dice mucho verdad ?
 Otra solución sería poner un Showmessage mostrando los valores de: MajorVer MinorVer osVerInfo.dwPlatformId Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias.
|
|
#8
17-04-2005
|
|||
|
|||
|
Yo utilizo el componente ComputerInfoEx open source de la JVCL, da todos los detalles del SO..
|
|
#9
17-04-2005
|
||||
|
||||
|
Ok.
Gracias por su Tiempo Hasta luego.
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
|
|
|
|
 |
|
Mode Lineal
