API SetLayeredWindowAttributes harus didukung pada sistem di bawah Windows 2000. Prinsipnya adalah menemukan pegangan jendela terlebih dahulu dan kemudian mengatur properti jendela.
Opacity program;
{$ AppType konsol}
penggunaan
Sysutils,
Windows;
var
Tangani, Astyle: Integer;
Mulai
mencoba
Jika ParamCount <2 lalu
Mulai
Writeln ('parameter harus');
KELUAR;
akhir;
Handle: = FindWindow (nil, pchar (paramstr (1))); // Saat ini, teks untuk mencari windows, atau dapat mencari classname
Astyle: = getWindowlong (pegangan, gwl_exstyle);
SetWindowlong (pegangan, GWL_EXSTYLE, ATTYLE atau WS_EX_LAYERED);
Jika setLayeredWindowattributes (handle, 0, strtoint (paramstr (2)), lwa_alpha) maka
Writeln (Paramstr (1)+'Perbarui berhasil'+paramstr (2))
kalau tidak
Writeln ('pembaruan opacity gagal');
kecuali
Writeln ('kesalahan parameter');
akhir;
akhir.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx