API SetLayeredWindowTtributes должен быть поддержан в системах ниже Windows 2000. Сначала принцип состоит в том, чтобы сначала найти ручку окон, а затем установить свойства окна.
Программа непрозрачность;
{$ Apptype Console}
Использование
Sysutils,
Windows;
вар
Ручка, Астил: целое число;
Начинать
пытаться
Если ParamCount <2, то тогда
Начинать
Writeln ('параметр должен');
Выход;
конец;
Руководство: = findwindow (nil, pchar (paramstr (1))); // в настоящее время это текст для поиска Windows, или он может искать ClassName
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 ('ошибка параметра');
конец;
конец.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx