kumatti1

Option Explicit

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare PtrSafe _

kumatti1

Imports ServiceLibrary

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32
            Dim objChild As New CEDID.CEDID_V1_Block

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32

kumatti1

//#define UNICODE
#import "igfxsrvc.exe"
#include <windows.h>
#include <stdio.h>
#include <comdef.h>

using namespace IGFXSRVCLib;

void GetName()
{

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objChild As New CDisplayConfig.CDeviceInfo
        Dim objPenent As New CDisplayConfig

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32

kumatti1

//#define UNICODE
#import "igfxsrvc.exe"
#include <windows.h>
#include <stdio.h>
#include <comdef.h>

using namespace IGFXSRVCLib;

void GetName()
{

kumatti1

MCCSによる設定

MCCSクラスのGetVCPCurrentMaxMinValueの戻り値でどの設定が使えるか判断出来る。
MSのAPIと挙動が似てるのでどちらもMCCSて事なのかなと。

factory_defaultプロシージャを呼び出す際、GetVCPCurrentMaxMinValueで得られた最大値を
SetVCPValueで指定する事で工場出荷時設定に戻せる。
(こちらの環境だと65535)

kumatti1

Option Explicit
Private Declare Function DispCallFunc Lib "oleaut32" _
        (ByVal pvInstance As Long, ByVal oVft As Long, _
        ByVal cc As Long, ByVal vtReturn As Integer, _
        ByVal cActuals As Long, prgvt As Integer, _
        prgpvarg As Long, pvargResult As Variant) As Long
Const CC_STDCALL = 4

Sub hoge()
    Dim objEDID As stdole.IUnknown

kumatti1

Option Explicit

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare PtrSafe _