Прозрачность для всех окон

[AidarBik]

Как можно установить прозрачность для всех окон?
Мне кажется, что нужно отправлять какое-то сообщение, но я не знаю, какое. И как получить все HWND?

[ChukCha]

Вот прозрачность на одно окно.
И на то штобы словить все окна и скрыть их.

Смешай както и все получится.

[AlDelta]

В Delphi 6 - доступна одна из возможностей создавать (полу)прозрачные формы (окна). Delphi 6 есть класс TForm, который поддерживает формы со слоями, которые имеют свойства AlphaBlend, AlphaBlendValue, TransparentColor, и TransparentColorValue.

Чтобы подготовить форму к прозрачности, нужно установить свойство AlphaBlend в True. Если AlphaBlend установлено в True, то свойство AlphaBlendValue указывает степень прозрачности. Это свойство позволяет задать значения от 0 до 255. 0 - полная прозрачность окна, 255 - непрозрачное окно.

[AidarBik]

Сообщение от AlDelta

В Delphi 6 - доступна одна из возможностей создавать (полу)прозрачные формы (окна). Delphi 6 есть класс TForm, который поддерживает формы со слоями, которые имеют свойства AlphaBlend, AlphaBlendValue, TransparentColor, и TransparentColorValue.

Чтобы подготовить форму к прозрачности, нужно установить свойство AlphaBlend в True. Если AlphaBlend установлено в True, то свойство AlphaBlendValue указывает степень прозрачности. Это свойство позволяет задать значения от 0 до 255. 0 - полная прозрачность окна, 255 - непрозрачное окно.

Это я знаю, но мне нужно было, чтобы прозрачность не у моих окон,а у всех окон в системе.
P.S. ChukCha, спасибо!

[GAGARIN-NEW]

1) Ищи функцию поиска всех окон(заголовков(их много найти легко)) и заноси в массив, потом используй функциюfindwindow, она возвращает HWND окна , поставь всё это в цикл от 1 до количества найденных окон/HWND и юзай ->
Вот я кусок из програмки примера дам :

procedure TForm1.Button42Click(Sender: TObject);
var
old: longint;
hwin:HWND;
begin
hwin:=FindWindow(nil, PChar(edit6.text)); //только это у меня была строчка =)
if hwin<>0 then
begin
old:=GetWindowLongA(hwin,GWL_EXSTYLE) ;
SetWindowLongA(hwin,GWL_EXSTYLE,old or $80000);
SetLayeredWindowAttributes(hwin, 0, spinedit7.Value , $2); // а это интегер ! значение только от 0 - 255 !!! инача error
end;
end;

[Alter]

C антивирем KIS 7.0.0.124, используя FindWindow для поиска окон неполучается в списке моргание. Хотя от шестой версии и ниже всё работало, как-то он защищает себя от этого. Но в Enum его видно.

[JTG]

Касперу +

[AidarBik]

А как вернуть окну прежний вид?
P.S. Не устанавливать значение прозрачности 255, а вернуть старый стиль.