A API SetLayeredWindowAttributes deve ser suportada em sistemas abaixo do Windows 2000. O princípio é encontrar a alça da janela primeiro e depois definir as propriedades da janela.
Opacidade do programa;
{$ Apptype Console}
usos
Sysutils,
Windows;
var
manuseio, astyle: inteiro;
Começar
tentar
Se paramCount <2 então
Começar
WriteLN ('parâmetro deve');
saída;
fim;
Handle: = findWindow (nil, pchar (paramstr (1))); // atualmente, é o texto para procurar Windows, ou pode estar procurando por classe
Astyle: = getwindowlong (alça, gwl_exstyle);
SetWindowlong (alça, gwl_exstyle, astyle ou ws_ex_layered);
Se setLayeredWindowattributes (Handle, 0, Strtoint (Paramstr (2)), Lwa_alpha) então
Writeln (Paramstr (1)+'Atualização foi bem -sucedida para'+paramstr (2))
outro
Writeln ('Atualização de opacidade falhou');
exceto
WriteLN ('Erro do parâmetro');
fim;
fim.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx