SetLayeredWindowattributes APIは、Windows 2000の下のシステムでサポートする必要があります。原則は、最初にウィンドウハンドルを見つけてからウィンドウプロパティを設定することです。
プログラムの不透明度;
{$ apptypeコンソール}
用途
sysutils、
Windows;
var
ハンドル、アスティル：整数;
始める
試す
paramCount <2の場合
始める
writeln（ 'parameter must'）;
出口;
終わり;
ハンドル：= findWindow（nil、pchar（paramstr（1）））; //現在、Windowsを探しているテキストであるか、クラス名を探すことができます
Astyle：= getWindowlong（ハンドル、gwl_exstyle）;
SetWindowlong（ハンドル、GWL_EXSTYLE、ASTYLE、またはWS_EX_LAYERED）;
setLayeredWindowattributes（handle、0、strtoint（paramstr（2））、lwa_alpha）の場合
writeln（paramstr（1）+'更新が'+paramstr（2）に成功しました）
それ以外
Writeln（ '不透明な更新に失敗した'）;
を除外する
writeln（ 'parameter error'）;
終わり;
終わり。
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx