Не реагировала на команду

← →
Пастор (2002-07-22 09:11) [0]

Как на чистом API сделать, чтобы окно не реагировала на команду "Свернуть все окна"?

На VCL это работает :

procedure TForm1.WMWinPosChanging(var Message: TWMWINDOWPOSCHANGING);
begin
Message.WindowPos^.flags := Message.WindowPos^.flags and not SWP_HIDEWINDOW;
end;

А на API почему то этот трюк не проходит :(

WM_WINDOWPOSCHANGING :
begin
wp := Pointer(lParam);
wp^.flags := wp^.flags or SWP_SHOWWINDOW and not SWP_HIDEWINDOW;
Result:=0;
end;

← →
Пастор (2002-07-22 21:37) [1]

а в ответ тишина...

← →
Proton © (2002-07-23 01:42) [2]

WM_WINDOWPOSCHANGING :
with PWINDOWPOS(wp)^ do
begin
flags := flags or SWP_SHOWWINDOW and not SWP_HIDEWINDOW;
Result:=0;
end;

← →
Пастор (2002-07-23 10:43) [3]

это тоже самое..

попробывал ?
with PWINDOWPOS(wp)^ do
надо заменть на
with PWINDOWPOS(lparam)^ do

Обрабатываешь мессадж на сворачивание разворачиванием!

Не реагировала на команду Найти похожие ветки