XProfan

'Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
'la fenêtre transparent mettons
'PROFANE²-NT-TEAM-Présentation
'Autor: Sven Schmidts, concept/design
'Titel: Transparent Fenêtre @ Win2k
'Beschreibung: Sorgt pour cette netten effet
'Copyright © 2000-2001 Sven Schmidts, schmidts@cdesign.de
'Update pour 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

    Paramètres 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