Display Device - Need some samples for AMD, Intel and NVIDIA GPUs

[KaFu]

Hello Forum :),

I would need some samples for the code posted below, on my current machine it returns "NVIDIA GeForce GTX 770". Does it work for AMD and Intel GPUs properly too?

Thanks in advance!

Best Regards

 

#include <WinAPI.au3>

$_Determine_Display1_GPU = _Determine_Display1_GPU()
If StringInStr($_Determine_Display1_GPU, "Intel") Then
    MsgBox(0, "GPU Test", "Intel string found..." & @CRLF & @CRLF & $_Determine_Display1_GPU)
Else
    MsgBox(0, "GPU Test", "No Intel string found..." & @CRLF & @CRLF & $_Determine_Display1_GPU)
EndIf

Func _Determine_Display1_GPU()
    Local $aDevice, $i = 0 ;, $sText
    While 1
        $aDevice = _WinAPI_EnumDisplayDevices("", $i)
        If @error Or Not $aDevice[0] Or Not $aDevice[1] Then ExitLoop
        If $aDevice[1] = "\\.\DISPLAY1" Then
            Return $aDevice[2]
            ExitLoop
        EndIf
        $i += 1
    WEnd
EndFunc   ;==>_Determine_Display1_GPU

 

[JLogan3o13]

It returns Intel string found... Intel(R) HD Graphics 530 for my Intel box, and No Intel string found... AMD Radeon HD 7800 Series, for my other box. 

Edited March 6, 2017 by JLogan3o13

[UEZ]

It shows "Intel(R) HD Graphics Family" for my notebook which is correct.

 

[rootx]

1 hour ago, KaFu said:

Hello Forum :),

I would need some samples for the code posted below, on my current machine it returns "NVIDIA GeForce GTX 770". Does it work for AMD and Intel GPUs properly too?

Thanks in advance!

Best Regards

 

#include <WinAPI.au3>

$_Determine_Display1_GPU = _Determine_Display1_GPU()
If StringInStr($_Determine_Display1_GPU, "Intel") Then
    MsgBox(0, "GPU Test", "Intel string found..." & @CRLF & @CRLF & $_Determine_Display1_GPU)
Else
    MsgBox(0, "GPU Test", "No Intel string found..." & @CRLF & @CRLF & $_Determine_Display1_GPU)
EndIf

Func _Determine_Display1_GPU()
    Local $aDevice, $i = 0 ;, $sText
    While 1
        $aDevice = _WinAPI_EnumDisplayDevices("", $i)
        If @error Or Not $aDevice[0] Or Not $aDevice[1] Then ExitLoop
        If $aDevice[1] = "\\.\DISPLAY1" Then
            Return $aDevice[2]
            ExitLoop
        EndIf
        $i += 1
    WEnd
EndFunc   ;==>_Determine_Display1_GPU

 

Intel(R) HD Graphics 530 4me... Try check the settings you have in the BIOS for your video card. Lenovo Y700

[jguinch]

Works for me :
"Intel string not found..." with "AMD Radeon HD 5450"

Edited March 7, 2017 by jguinch

[JLogan3o13]

@rootx in the future please just hit reply rather than quoting everything said; pads the entire post unnecessarily.

 

[Bowmore]

For me it returns

No Intel string found...
NVIDIA Quadro 400
 

[JohnOne]

Intel string found...

Intel(R) HD Graphics

[Iczer]

on my system its:

No Intel string found...

AMD Radeon HD 7700 Series

which is correct

[KaFu]

Thanks folks, the feedback is much appreciated :)!

 

14 hours ago, jguinch said:

Works for me :
"Intel string found..." with "AMD Radeon HD 5450"

? Maybe it's "string not found"?

[orbs]

---------------------------
GPU Test
---------------------------
Intel string found...



Intel(R) HD Graphics Family
---------------------------
OK   
---------------------------

excuse pettiness, but why on earth did you not use ConsoleWrite instead of MsgBox? 

[RTFC]

No Intel string found...

0

It fails on my laptop with Intel HD Graphics 4600 (active default) and Nvidia Quadro K1000M.

 

 

Edited March 10, 2017 by RTFC

[KaFu]

2 hours ago, RTFC said:

 

It fails on my Dell Precision M3800 laptop with Intel HD Graphics 4600 (active default) and Nvidia Quadro K1000M.

 

Attached to an external monitor? Might be that this line kicks you out, it's not save and just for testing:

If $aDevice[1] = "\\.\DISPLAY1" Then

Maybe this one is more valid to test:

#include <WinAPI.au3>

$_Determine_Display_GPU = _Determine_Display_GPU()
If StringInStr($_Determine_Display_GPU, "Intel") Then
    MsgBox(0, "GPU Test", "Intel string found..." & @CRLF & @CRLF & $_Determine_Display_GPU)
Else
    MsgBox(0, "GPU Test", "No Intel string found..." & @CRLF & @CRLF & $_Determine_Display_GPU)
EndIf

Func _Determine_Display_GPU()
    Local $aDevice, $i = 0, $sText
    While 1
        $aDevice = _WinAPI_EnumDisplayDevices("", $i)
        If @error Or Not $aDevice[0] Or Not $aDevice[1] Then ExitLoop
        If Not StringInStr($sText, $aDevice[2], 2) Then $sText &= $aDevice[2] & @CRLF
        $i += 1
    WEnd
    Return StringTrimRight($sText, 2)
EndFunc   ;==>_Determine_Display_GPU

 

[RTFC]

Indeed, KaFu, that second version does detect my Intel graphics card correctly (no external monitor present, BTW). Well done.

Edited March 7, 2017 by RTFC