半透明ウインドウ

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27

//SetLayeredWindowAttributes APIによる
//ウィンドウの半透明化
//BOOL SetLayeredWindowAttributes(
//    HWND hwnd,           // レイヤードウィンドウのハンドル
//    COLORREF crKey,      // カラーキーを指定する構造体へのポインタ
//    BYTE bAlpha,         // ブレンド機能の値
//    DWORD dwFlags        // アクションフラグ
//);
 
#define alpha 180        ;alphaの値
#define WS_EX_LAYERED 0x80000
#define LWA_ALPHA 0x2
#include "llmod3/llmod3.hsp"
gosub *window_set
stop
 
*window_set
    gosub *setwndlong_set
    _return = hwnd,0,alpha,LWA_ALPHA    ;引数設定
    dllproc "SetLayeredWindowAttributes",_return,4,D_USER
    return
 
//ウィンドウの属性変更
*setwndlong_set
    _return = hwnd,-20,WS_EX_LAYERED
    setwndlong _return
    return