XProfan

 {$iq}
def SetWindowLong(3) !USER32,SetWindowLongA
def GetWindowLong(2) !USER32,GetWindowLongA
def SetLayeredWindowAttributes(4) !USER32,SetLayeredWindowAttributes

Proc preparehdl4alpha

    Parameters hdl&
    SetWindowLong(hdl&, -20, @Or(GetWindowLong(hdl&,-20),$80000));

EndProc

Proc alpha

    Parameters hdl&,aval%
    SetLayeredWindowAttributes(hdl&, 0, aval%, $2);

EndProc

print
preparehdl4alpha %hwnd
alpha %hwnd,196
waitinput
end