Die SetLayeredWindowattributes -API muss auf Systemen unter Windows 2000 unterstützt werden. Das Prinzip besteht darin, zuerst den Fenstergriff zu finden und dann die Fenstereigenschaften einzustellen.
Programmoptazität;
{$ AppType Console}
Verwendung
SYSUTILS,
Fenster;
var
Handle, Astyle: Ganzzahl;
Beginnen
versuchen
Wenn ParamCount <2 dann
Beginnen
WriteLN ('Parameter muss');
Ausfahrt;
Ende;
Handle: = FindWindow (NIL, PCHAR (Paramstr (1))); // Derzeit ist es der Text für die Suche nach Windows, oder es kann nach Klassenname suchen
Astyle: = GetWindowlong (Handle, gwl_exStyle);
SetWindowlong (Handle, GWL_EXStyle, Astyle oder WS_EX_Layered);
Wenn SetLayeredWindowAttributes (Handle, 0, Strtoint (Paramstr (2)), LWA_Alpha) dann dann
Writeln (Paramstr (1)+'Update gelang es,'+Paramstr (2)) zu sein.
anders
WriteLN ('Opazitäts -Update fehlgeschlagen');
außer
WriteLN ('Parameter -Fehler');
Ende;
Ende.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx