La API de SetLayeredWindowAttributes debe ser compatible con los sistemas debajo de Windows 2000. El principio es encontrar primero el mango de la ventana y luego establecer las propiedades de la ventana.
Opacidad del programa;
{$ AppType Console}
usos
Sysutils,
Ventanas;
varilla
manejar, astyle: entero;
Comenzar
intentar
Si ParamCount <2 entonces
Comenzar
WriteLn ('Parámetro debe');
salida;
fin;
manejar: = findwindow (nil, pchar (paramstr (1))); // Actualmente, es el texto para buscar Windows, o puede estar buscando classname
Astyle: = getwindowlong (manejar, gwl_exstyle);
Setwindowlong (manejar, gwl_exstyle, astyle o ws_ex_layered);
Si SetLayeredWindowAttributes (Handle, 0, StrToint (Paramstr (2)), lwa_alpha) entonces
WriteLn (Paramstr (1)+'Update logró'+Paramstr (2))
demás
WriteLn ('Failed Opacity Update');
excepto
WriteLn ('Error de parámetro');
fin;
fin.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx