Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Averiguar la version del DirectX instalado (https://www.clubdelphi.com/foros/showthread.php?t=80464)

Bicho 12-06-2006 13:34:23

Averiguar la version del DirectX instalado
 
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;


La franja horaria es GMT +2. Ahora son las 14:27:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi