[[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

Código Delphi [-]
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;