Tester la version de DirectX

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Tester la version de DirectX

Message par falsam »

Objectif : Tester la version de DirectX

- Ajout de la valeur "10.00.10240.16384" pour tester DirectX 12

Code : Tout sélectionner

Procedure.s RegReadKey(TopKey.l, KeyName.s, ValueName.s, Type.l, ComputerName.s) 
  Protected Error.l, hKey.l, lReturnCode.l, lhRemoteRegistry.l, BufferSize, Value.q, Result.s
  
  If ComputerName = "" 
    Error = RegOpenKeyEx_(TopKey, KeyName, 0, #KEY_READ, @hKey) 
  Else 
    lReturnCode = RegConnectRegistry_(ComputerName, topKey, @lhRemoteRegistry) 
    Error = RegOpenKeyEx_(lhRemoteRegistry, KeyName, 0, #KEY_READ, @hKey) 
  EndIf 
  
  If Error = #ERROR_SUCCESS  
    RegQueryValueEx_(hKey, ValueName, 0, @type, 0, @BufferSize)
    
    Select Type 
      Case #REG_SZ,#REG_EXPAND_SZ
        
        If bufferSize
          value = AllocateMemory(buffersize)
          If value
            Error = RegQueryValueEx_(hKey, ValueName, 0, 0, Value, @BufferSize)
             
            If Error = #ERROR_SUCCESS
              Result = PeekS(value)  
            EndIf
            FreeMemory(value)
          Else
            Error = #ERROR_NOT_ENOUGH_MEMORY
          EndIf  
        EndIf       
        
      Case #REG_DWORD, #REG_QWORD 
        Error = RegQueryValueEx_ (hKey, ValueName, 0, 0 , @Value, @BufferSize)
        If Error = #ERROR_SUCCESS
          Result = Str(Value)
        EndIf
          
    EndSelect 
      
    RegCloseKey_(hkey) 
  EndIf
  
  ProcedureReturn Result
EndProcedure

Procedure.s DX_Version()

  Protected TopKey.l = #HKEY_LOCAL_MACHINE
  Protected KeyName.s = "Software\Microsoft\DirectX"
  Protected Value.s = "Version"

  DXVersion$ = RegReadKey(TopKey, KeyName, Value, #REG_DWORD,"")
  
  Select DXVersion$
    Case "4.02.0095"
      Version_DX$ = "1.0"
    Case "4.03.00.1096"
      Version_DX$ = "2.0"
    Case "4.04.0068"
      Version_DX$ = "3.0"
    Case "4.04.0069"
      Version_DX$ = "3.0"
    Case "4.05.00.0155"
      Version_DX$ = "5.0"
    Case "4.05.01.1721"
      Version_DX$ = "5.0"
    Case "4.05.01.1998"
      Version_DX$ = "5.0"
    Case "4.06.02.0436"
      Version_DX$ = "6.0"
    Case "4.07.00.0700"
      Version_DX$ = "7.0"
    Case "4.07.00.0716"
      Version_DX$ = "7.0a"
    Case "4.08.00.0400"
      Version_DX$ = "8.0"
    Case "4.08.01.0881"
      Version_DX$ = "8.1"
    Case "4.08.01.0810"
      Version_DX$ = "8.1"
    Case "4.09.0000.0900"
      Version_DX$ = "9.0"
    Case "4.09.00.0900"
      Version_DX$ = "9.0"
    Case "4.09.0000.0901"
      Version_DX$ = "9.0a"
    Case "4.09.00.0901"
      Version_DX$ = "9.0a"
    Case "4.09.0000.0902"
      Version_DX$ = "9.0b"
    Case "4.09.0000.0902"
      Version_DX$ = "9.0b"
    Case "4.09.00.0903"
      Version_DX$ = "9.0c"
    Case "4.09.00.0904"
      Version_DX$ = "9.0c"
    Case "4.09.00.0904 (RC0)"
      Version_DX$ = "9.0c"
    Case "4.09.00.0905 (RC0)"  
      Version_DX$ = "9.25.1476"
    Case "4.09.00.0906 (RC0)"  
      Version_DX$ = "9.26.1590"
    Case "4.09.6000.16386"
      Version_DX$ = "10"
    Case "6.00.6000.16386"
      Version_DX$ = "10"  
    Case "6.00.6001.18000"
      Version_DX$ = "10.1"
    Case "6.01.7600.16385"
      Version_DX$ = "11"
    Case "6.01.7601.17514"
      Version_DX$ = "11"
    Case "6.02.9200.16384"
      Version_DX$ = "11.1"
    Case "6.03.9600.16384"
      Version_DX$ = "11.2"
    Case "10.00.10240.16384"
      Version_DX$ = "12.0"
      
  EndSelect
    
  ProcedureReturn Version_DX$ + " ("+DXVersion$+")"
      
EndProcedure
  
Debug "Version directX "+ DX_Version()
Si quelques uns d'entres vous pouvez me retourner un résultat en spécifiant l'OS. Merci.

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
GallyHC
Messages : 1688
Inscription : lun. 17/déc./2007 12:44

Re: Tester la version de DirectX

Message par GallyHC »

Bonjour,

Pour ma part "Version directX 9.0c (4.09.00.0904)" avec Windows7.

Cordialement,
GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Avatar de l’utilisateur
SPH
Messages : 4320
Inscription : mer. 09/nov./2005 9:53

Re: Tester la version de DirectX

Message par SPH »

Version directX 9.0c (4.09.00.0904)
bizzare, car je suis sous w10 !
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.73LTS - 32 bits
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tester la version de DirectX

Message par falsam »

SPH a écrit :bizzare, car je suis sous w10 !
Tu as peut être installé un jeu qui lui même a installé DirectX 9c pour qu'il puisse fonctionner.

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
Ar-S
Messages : 9144
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tester la version de DirectX

Message par Ar-S »

Pour savoir quelle version de Direct X vous utilisez faites
Démarrer / executer (ou Windows + R)
et tapez DXDIAG
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tester la version de DirectX

Message par falsam »

Ar-S a écrit :Pour savoir quelle version de Direct X vous utilisez faites
Démarrer / executer (ou Windows + R)
et tapez DXDIAG
Mince j'aurais écrire dans mon premier message que ce n'était pas la peine de signaler l’existence de DxDiag qui lui renseigne sur la version installée de DirectX.

J'ai Windows 10 avec DirectX 12 installé.

Je pense que le code indique la compatibilité utilisée qui est chez moi
Version directX 9.0c (4.09.00.0904)

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
SPH
Messages : 4320
Inscription : mer. 09/nov./2005 9:53

Re: Tester la version de DirectX

Message par SPH »

Ar-S a écrit :Pour savoir quelle version de Direct X vous utilisez faites
Démarrer / executer (ou Windows + R)
et tapez DXDIAG
Avec dxdiag, j'ai bien dx12 :!:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.73LTS - 32 bits
Avatar de l’utilisateur
Ar-S
Messages : 9144
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tester la version de DirectX

Message par Ar-S »

@falsam
J'avoue que je m'en doutais... Mais ça rassure SPH comme ça :D
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
Avatar de l’utilisateur
Micoute
Messages : 2401
Inscription : dim. 02/oct./2011 16:17
Localisation : 50200 Coutances

Re: Tester la version de DirectX

Message par Micoute »

Bonjour à tous,
en fait je suis comme SPH 9.0c (4.09.00.0904) avec la méthode falsam et 12 par la méthode Ar-s
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tester la version de DirectX

Message par falsam »

@Ar-s : Pas de souci. L'importance est que SPH soit rassuré :wink:

@Micoute : Avec ce teste je sais que c'est DirectX 9c que ton système connait.

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
microdevweb
Messages : 1771
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Tester la version de DirectX

Message par microdevweb »

sur windows 10

Version directX 9.0c (4.09.00.0904)
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
Micoute
Messages : 2401
Inscription : dim. 02/oct./2011 16:17
Localisation : 50200 Coutances

[Résolu] Tester la version de DirectX

Message par Micoute »

falsam a écrit :@Ar-s : Pas de souci. L'importance est que SPH soit rassuré :wink:

@Micoute : Avec ce teste je sais que c'est DirectX 9c que ton système connait.
ça m'a permit de savoir qu'il fallait que je remettre mon pilote à jour, ce qui a résolu mon problème.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tester la version de DirectX

Message par falsam »

Merci Microdevweb. Je suis perplexe sur cette item de la base de registre dont je fais référence dans le code. Quel type d'information renvoit il ?

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
falsam
Messages : 6950
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tester la version de DirectX

Message par falsam »

@Micoute : C'était le but de ce code pour répondre à ta problématique dans un autre sujet

➽ Config PureBasic : Windows 10 Version 64 Bits - DirectX 11 - PB 5.72

➽ Je ne réponds pas aux MP techniques
Avatar de l’utilisateur
microdevweb
Messages : 1771
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Tester la version de DirectX

Message par microdevweb »

falsam a écrit :Merci Microdevweb. Je suis perplexe sur cette item de la base de registre dont je fais référence dans le code. Quel type d'information renvoit il ?
Je ne comprend pas bien ta question ?
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Répondre