Esta rutina te da la versión de windows, tienes que actualizarla para vista.

function WinVersion: string;
var
versionSO:TOSVersionInfo;
Cvalor:Cardinal;
Major, Minor, Build : integer;
begin

VersionSO.dwOSVersionInfoSize:=SizeOf(VersionSO);
GetVersionEx(VersionSO);
CValor:=VersionSO.dwPlatformId;

// Versión
With VersionSO do
begin
Major := dwMajorVersion;
Minor := dwMinorVersion;
if CValor = 1 then
Build := $0000ffff and dwBuildNumber
else
Build := dwBuildNumber;
end;

result := Format('Versión %d.%d.%d',[ Major, Minor, Build ]);
// Plataforma


case Cvalor of
0 : result := 'Windows 3.x ' + result;
1 : result := 'Windows 95/98 ' + result;
2 : result := 'Windows NT/2000 ' + result;
end;

result := result + ' ' + VersionSO.szCSDVersion;
end;

El 30 de octubre de 2008 18:32, Ricardo Cabra <ricardo_cabra@...>escribió:

>
> hola compañeros,
>
> necesito una ayudita,
>
> necesito obtener el id del disco duro, y el id o alguna informacion del
> procesador,
>
> asi como poder obtener la version del windows que se esta ejecutando, el
> windows es vista...
>
> gracias
>
> Ricardo Cabra
>
> [Non-text portions of this message have been removed]
>
>
>



--
===================
Ing. Alirio A. Gavidia B.
http://www.gavidia.org
===================


[Non-text portions of this message have been removed]