SetLayeredWindowAttributes API จะต้องได้รับการสนับสนุนในระบบด้านล่าง Windows 2000 หลักการคือการค้นหาที่จับหน้าต่างก่อนจากนั้นตั้งค่าคุณสมบัติของหน้าต่าง
ความทึบของโปรแกรม;
{$ AppType Console}
ใช้
Sysutils
Windows;
วาจา
จับ, Astyle: จำนวนเต็ม;
เริ่ม
พยายาม
ถ้า paramcount <2 แล้ว
เริ่ม
writeln ('พารามิเตอร์ต้อง');
ออก;
จบ;
มือจับ: = findwindow (ไม่มี, pchar (paramstr (1))); // ปัจจุบันเป็นข้อความสำหรับการค้นหา windows หรือสามารถมองหา classname
ASTYLE: = GetWindowLong (Handle, GWL_EXSTYLE);
SetWindowLong (Handle, GWL_EXSTYLE, ASTYLE หรือ WS_EX_LAYERED);
ถ้า setLayeredWindowAttributes (handle, 0, strtoint (paramstr (2)), lwa_alpha) แล้ว
Writeln (การอัปเดต Paramstr (1)+'สำเร็จเป็น'+Paramstr (2))
อื่น
writeln ('การอัปเดตความทึบล้มเหลว');
ยกเว้น
writeln ('ข้อผิดพลาดพารามิเตอร์');
จบ;
จบ.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx