「アプリが鮮明に表示されるようにWindowsにより修正を試す」の設定状況を知りたいです

Question

Windows10のデスクトップで右クリックしてディスプレイの設定を開くと、
拡大縮小とレイアウトの最初の項目の下に「表示スケールの詳細設定」というリンクがあります。
これをクリックすると「アプリの表示スケールの修正」をON/OFFできる設定が
現れるのですが、設定状況によりVBAのUserForm上でImageに現れる画像サイズが変わるので困っています。

具体的には、表示スケールが125%以上で「アプリの表示スケールの修正」がONだと、
DeviceDpi（※）の値が小さくなるためか、pt値から計算したdotサイズが小さくなり、
結果としてプログラムで表示させるイメージのサイズを小さく設定してしまいます。

VBAで「アプリの表示スケールの修正」の設定状況を取得する方法があれば教えていただけないでしょうか。
Win32API(C++)や.Net(C#)で取得する方法でも構いません。よろしくお願いいたします。

※ https://teratail.com/questions/135422 のコメントに記載している処理で使っています

Answer 1

レジストリの以下に設定されているようなので取得してみたらどうでしょうか？
HKEY_CURRENT_USER\Control Panel\Desktop
EnablePerProcessSystemDPI

Comments

[suns_edu]

コメントありがとうございます。
「アプリの表示スケールの修正」がOFFの場合はレジストリキーが消される
（ONの場合のみキーが1の値で現れる）仕様であることがようやく分かりました。
回答遅くなり申し訳ございません。

Answer 2

hmmmさんの回答を元にコードを作成してみました。

Const REG_EnablePerProcessSystemDPI = _
        "HKEY_CURRENT_USER\Control Panel\Desktop\EnablePerProcessSystemDPI"
    
Dim wsShell As Object 'As IWshRuntimeLibrary.WshShell
Set wsShell = CreateObject("WScript.Shell")

On Error Resume Next
    
    '設定してある場合はregVal=1
    '設定していないとエラー
        'Number:-2147024894
        'Description:オートメーション エラーです。指定されたファイルが見つかりません｡
    Dim regVal As Long 'As REG_DWORD
    regVal = wsShell.RegRead(REG_EnablePerProcessSystemDPI)
    
    If Err.Number = 0 And regVal = 1 Then
        Debug.Print "「アプリの表示スケールの修正」On"
    Else
        Debug.Print "「アプリの表示スケールの修正」Off"
    End If
On Error GoTo 0

Comments

[suns_edu]

コメントありがとうございます。
提示いただいたコードの動作確認中に、レジストリキーが現れたり消えたりする挙動が確認できました。
たいへん助かりました。
今後ともよろしくお願い申し上げます。