Averiguar la version del DirectX instalado

[Bicho]

Con éste código podremos saber el número de versión que tenemos del DirectX instalado en el pc, tiene una variable que si es true, te devuelve el numero de versión en formato corto, osea, versión 8 por ejemplo. Si es false te devuelve la versión con todas las cifras, por ejemplo: 8.04.02.05

Una cosa más: hay que añadir al uses la clase Registry


Function DXVersion(VersionCorta:Boolean) : String;
Var Registro : TRegistry;
Cadena : String;
Begin
Cadena:='';
Registro:=TRegistry.Create;
Try Registro.RootKey:=HKey_Local_Machine;
If Registro.OpenKey('\Software\Microsoft\DirectX',FALSE) Then
Cadena:=Registro.ReadString('Version')
Else
Result:='No Existe CLAVE : [HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\DIRECTX]';
Finally
Registro.Free;
End;
If Cadena='' Then Exit;
If VersionCorta Then Begin
Cadena:=Copy(Cadena,Pos('.',Cadena)+1,Length(Cadena));
Cadena:=IntToStr(StrToInt(Copy(Cadena,1,Pos('.',Cadena)-1)));
End;
Result:=Cadena;
End;