08/12/23 05:20:39 BysJfIX0
>>453
情報ありがとうございます、参考にします。
>>454
楕円形のリージョンを設定ならできた・・・
で、今回やりたいDirectXの描画内容を透過などはもっと複雑で自分は今はやりたくない(´・・ω)すまない
cls
set display mode 160, 160, 32
set window on
SHOW WINDOW
// hWnd取得用
LOAD DLL "user32.dll", 1
// リージョン用
LOAD DLL "gdi32.dll", 2
dim hWnd(1)
dim hRgn(1)
dim ok(1)
// hWnd取得 -作られたウィンドウID
hWnd = CALL DLL( 1, "GetForegroundWindow" );
// リージョン作成 -リージョンID
hRgn = CALL DLL( 2, "CreateEllipticRgn", 0, 0, 160, 160 );
// リージョンを設定する
ok = CALL DLL( 1, "SetWindowRgn", hWnd, hRgn, 1 );
//ok = CALL DLL( 1, "ValidateRgn", hWnd, hRgn );
print "hWnd = "+str$(hWnd)
print "hRgn = "+str$(hRgn)
print ok
wait key