XProfan

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'Ventana transparent conjunto
'PROFAN²-NT-TEAM-Presentación
'Autor: Sven Schmidts, concept/design
'Titel: Transparent Ventana @ Win2k
'Descripción: Sorgt para esta netten Effekt
'Copyright © 2000-2001 Sven Schmidts, schmidts@cdesign.de
'Actualización para X3: Marc-Gordon Kröhn al 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

    Parámetros 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