ソフトのロゴをかっこよく表示するためのサンプルプログラム
#uselib "user32.dll"
#func SetWindowLong "SetWindowLongA" int,int,int
#func SetLayeredWindowAttributes "SetLayeredWindowAttributes" int,int,int,int
#const LWA_COLORKEY 1 ;透明色を指定
#const LWA_ALPHA 2 ;アルファー値を指定
#const GWL_EXSTYLE -20 ;拡張ウィンドウスタイル
#const WS_EX_LAYERED $00080000 ;透明なウィンドウ属性
bgscr 0,640,480,2,ginfo_dispx/2-320,ginfo_dispy/2-240
alpha = 0
SetWindowLong hwnd,-20,WS_EX_LAYERED
SetLayeredWindowAttributes hwnd,0,alpha,LWA_ALPHA
gsel 0,1
//---ロゴに表示する文字や画像はここから---
//-------------ここの間に書く-------------
dim rogos
repeat
alpha = rogos ; 0〜255
SetWindowLong hwnd,-20,WS_EX_LAYERED
SetLayeredWindowAttributes hwnd,0,alpha,LWA_ALPHA
rogos=rogos+3
if rogos>255 : break
await 10
loop
stop
是非ご活用ください。