如果你用的是WIN2K,那就很简单:
const
; WS_EX_LAYERED = $80000;
; WS_EX_TRANSPARENT = $20;
; LWA_ALPHA = $2;
var
; bTrans: Byte;
begin
; //HWnd就是你要设置的窗口的Handle.
; //当然要用FindWindow等函数找到你要隐藏窗口的Handle啦。
; SetWindowLong(HWnd, GWL_EXSTYLE, GetWindowLong(HWnd, GWL_EXSTYLE) or WS_EX_LAYERED or WS_EX_TRANSPARENT);
; //注意如果设置了WS_EX_TRANSPARENT,那这个窗口就不受你控制了[
]
; bTrans := 100; //透明度
; SetLayeredWindowAttributes(HWnd, 0, bTrans, LWA_ALPHA); //设置为透明
WIN2K, Delphi5,6上测试通过。可以设置任意窗口的透明度。