HSPTV!掲示板

↓HSPでこんな感じのようにできないのでしょうか？
https://twitter.com/THE_ROCKY10/status/1715971508622037211

少し前にSetWindowCompositionAttributeなる非公開APIのことを知って、
それで色々試していた時に見つけたものです。
(ちょっと最大化ボタンの見た目が微妙に違うような気もしますが……)
ただし、非公開APIなのでMS公式による説明はなく、
過去にWindows11のアップデートで仕様が変わったことがありますので、
将来にわたってこれで上手くいくかどうかはわかりません。

#include "user32.as" 
#func SetWindowCompositionAttribute "SetWindowCompositionAttribute" int,int

dim data,3
dim accent,4

mode=0
gosub *toggle

button gosub "切り替え",*toggle

//件のスクショに見た目を近づけるため、ウィンドウスタイルにWS_SIZEBOXを付加
GetWindowLong hwnd,-16
SetWindowLong hwnd,-16,stat|0x40000

stop

*toggle
mode=(mode=0)
accent=mode,0,0,0	//これの第一パラメータに0以外を指定すると有効に、0を指定すると無効になる？
data=11,varptr(accent),16	//WCA_NCRENDERING_EXILED = 11
SetWindowCompositionAttribute hwnd,varptr(data)
return

隠しAPIでこんなに簡単にできるとは…。
ちなみにGetWindowCompositionAttributeでコンポジションの属性を取得して、トグル切り替えはできるんですかね？

申し訳ございません。
GetWindowCompositionAttributeでググって出てくる数少ない記述をもとに試してみましたが、
上手く行く気配がありませんね。
何かが間違っているのか……。

#include "kernel32.as"
#include "user32.as" 
#func SetWindowCompositionAttribute "SetWindowCompositionAttribute" int,int
#func GetWindowCompositionAttribute "GetWindowCompositionAttribute" int,int

dim data,3
dim accent,4

//GetWindowCompositionAttributeのために別の構造体を用意してみる
dim data2,3
dim accent2,4

mode=0
gosub *toggle

button gosub "切り替え",*toggle
button gosub "現在の状態",*status

//件のスクショに見た目を近づけるため、ウィンドウスタイルにWS_SIZEBOXを付加
GetWindowLong hwnd,-16
SetWindowLong hwnd,-16,stat|0x40000

stop

*toggle
mode=(mode=0)
accent=mode,0,0,0	//これの第一パラメータに0以外を指定すると有効に、0を指定すると無効になる？
data=11,varptr(accent),16	//WCA_NCRENDERING_EXILED = 11
SetWindowCompositionAttribute hwnd,varptr(data)
return

*status
data2=11,varptr(accent2),16	//WCA_NCRENDERING_EXILED = 11
GetWindowCompositionAttribute hwnd,varptr(data2)
GetLastError : logmes strf("0x%08X",stat)	//エラーコードは0x57(ERROR_INVALID_PARAMETER パラメーターが正しくありません)
dialog accent2(0)	//accent2(0)に現在の状態が入ると予想していたのだが、上手くいかず……
return

GetWindowCompositionAttribute関数ってそんなに情報が少ないのは仕方ないんですかね…。
とりあえず解決済みとさせていただきます。