L'API SetLayeredWindowAttributes doit être prise en charge sur les systèmes sous Windows 2000. Le principe consiste d'abord à trouver la poignée de la fenêtre, puis à définir les propriétés de la fenêtre.
Programme Opacité;
{$ Apptype Console}
usages
Sysutils,
Fenêtres;
var
Gandoue, astyle: entier;
Commencer
essayer
Si paramcount <2 alors
Commencer
WriteLn ('Paramètre MUST');
sortie;
fin;
Handle: = findwindow (nil, phar (paramstr (1))); // Actuellement, c'est le texte pour la recherche de fenêtres, ou il peut être à la recherche de ClassName
Astyle: = getWindowlong (manche, gwl_exstyle);
SetWindowlong (manche, gwl_exstyle, astyle ou ws_ex_layered);
Si setLayeredWindowAttributes (Handle, 0, strToint (paramstr (2)), lwa_alpha)
WriteLn (paramstr (1) + 'La mise à jour a réussi à' + paramstr (2))
autre
WriteLn ('Opacity Update a échoué');
sauf
WriteLn ('Erreur de paramètre');
fin;
fin.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx