XProfan

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Fenster transparent setzen
'PROFAN²-NT-TEAM-Vorlage
'Autor: Sven Schmidts, concept/design
'Titel: Transparent Window @ Win2k
'Beschreibung: Sorgt für diesen netten Effekt
'Copyright © 2000-2001 Sven Schmidts, schmidts@cdesign.de
'Update für X3: Marc-Gordon Kröhn am 10.02.2016
 $H windows.ph
def %LWA_ALPHA $2
def %GWL_EXSTYLE -20
def %WS_EX_LAYERED $80000
def %WS_EX_TRANSPARENT $20
def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"

Proc SetTransparent

    Parameters Hwnd%, Perc%
    var Old& = ~GetWindowLong(Hwnd%,%GWL_EXSTYLE)
    ~SetWindowLong(Hwnd%, %GWL_EXSTYLE, (Old& | %WS_EX_LAYERED));
    SetLayeredWindowAttributes(Hwnd%, 0, (255 * Perc%) / 100, %LWA_ALPHA);

EndProc

cls
SetTransparent %Hwnd, 80
WaitInput