Сворачивание всех окон системы

[Vladya]

Добрый день!
Помогите разобраться вот в чем:
я сворачиваю все окна системы вот этой функцией

function enumminiproc (wd: hwnd;
param: longint): boolean;
stdcall;
begin
if wd<>Form1.handle then 
if iswindowvisible(wd) then 
if not isiconic(wd) then 
if iswindow(wd) then 
showwindow(wd, sw_minimize);
enumminiproc := true;
end;

Окна сворачиваются но сворачивается и моя программа которая должна остаться не свернутой, вот собственно и вопрос мой - почему моя программа тоже сворачивается???

[Lemo]

// deleted

[Lemo]

function MyCallback(Wnd: THandle;Param: integer): boolean; stdcall;
var
  style: longint;
  tsb, rabst: integer;
begin
  tsb:=FindWindow('Shell_TrayWnd', nil);
  rabst:=FindWindow('ProgMan', 'Program Manager');
  Result := Wnd <> 0;
  style:=GetWindowLong(wnd,GWL_EXSTYLE);
  style:=style and WS_EX_TOPMOST;
  if Result and IsWindowVisible(Wnd)and (not IsIconic(WND)) and (wnd<>tsb) and
  (wnd<>rabst) and (wnd<>FindWindow('Indicator',nil)) and
  (style<>WS_EX_TOPMOST)and(wnd<>form1.handle)then
  begin
    ShowWindow(Wnd,sw_hide);
    ShowWindow(Wnd,Param);
  end;
end;



procedure ShowAllWindows(Cmd: integer);
begin
  EnumWindows(@MyCallback,Cmd);
end;

ВЫЗОВ:

ShowAllWindows(SW_SHOWMINIMIZED);

[Vladya]

Так тоже скрываются все окна вместе и с моей программой...

[Terran]

Я немного изменил функцию Lemo. Теперь своя программа не сворачивается.

function MyCallback(Wnd: THandle;Param: integer): boolean; stdcall;
var
  style: longint;
  tsb, rabst: integer;
begin
  tsb:=FindWindow('Shell_TrayWnd', nil);
  rabst:=FindWindow('ProgMan', 'Program Manager');
  Result := Wnd <> 0;
  style:=GetWindowLong(wnd,GWL_EXSTYLE);
  style:=style and WS_EX_TOPMOST;
  if Result and IsWindowVisible(Wnd)and (not IsIconic(WND)) and (wnd<>tsb) and
  (wnd<>rabst) and (wnd<>FindWindow('Indicator',nil)) and
  (style<>WS_EX_TOPMOST)and(wnd<>form1.handle)then
  begin
   If Wnd <> Application.Handle Then
   Begin
    ShowWindow(Wnd,SW_HIDE);
    ShowWindow(Wnd,Param);
   End;
   Form1.SetFocus;
   End;
end;