kumatti1

MCCSによる設定

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

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

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 objPenent As New CEDID

        For i As UShort = 0 To 32

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

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

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 objPenent As New CEDID

        For i As UShort = 0 To 32

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

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

Option Explicit
Private WithEvents d As Shell32.ShellFolderViewOC
Private WithEvents ie As SHDocVw.InternetExplorer
Private flg As Boolean
Private Sub d_EnumDone()
    flg = True
    Debug.Print "d_EnumDone"
    
End Sub
Private Sub ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)

kumatti1

Option Explicit
Sub hoge3()
    Dim o As Shell32.FolderItems3
    Dim v As Shell32.FolderItem2
    Dim Shl As Shell32.Shell
    Dim Win As InternetExplorer
    Const StrPath As String = "C:\Temp"
    Set Shl = New Shell32.Shell
    For Each Win In Shl.Windows
        If Win.FullName Like "*\Explorer.EXE" Then