#uselib "dwmapi.dll"
#func defica "DwmExtendFrameIntoClientArea" int, var
#uselib "user32.dll"
#cfunc GetWindowLongA "GetWindowLongA" int,int
#func SetWindowLongA "SetWindowLongA" int,int,int
#func SetLayered "SetLayeredWindowAttributes" int,int,int,int
margins = -1, 0, 0, 0 //-1 を指定するとウィンドウ全体
defica hwnd, margins
// ID 0 の位置に合わせて ID 1 の bgscr ウィンドウ作成
_x=2:_y=-_x
// 背景(ID 1)を 透明化 & 子ウィンドウ化
SetWindowLongA hwnd,-8,_hwnd
SetWindowLongA hwnd,-20,GetWindowLongA(hwnd,-20)|0x00080000
SetLayered hwnd,0xFEFEFE,0,1
// 254,254,254 を透過色として利用
color 254,254,254:boxf
// 黒で書いてみる
color:font "",12,
mes"Aero"
stop
ソース元:
http://hsp.tv/play/pforum.php?mode=all&num=62938
これで画面を半透明化できるはずです