Исправить код сворачивания всех окон

[niki2012]

В интернете нашел данный код:

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);

Но моя форма тоже сворачивается, как это исправить?

[asmodey1]

form1.handle замените на Application.handle...

[Alex Cones]

Господи, что за извращение? Читаем статью "PanicButton". http://www.procoder.info/index.php?o...=63&Itemid=207 После прочтения и запуска вертаем себя с помощью Form1.Show.

[niki2012]

application.handle не помог...

[asmodey1]

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

application.handle не помог...

А мне помог. Параметр запуска Cmd=2.

[niki2012]

Всеравно сворачивает (не полностью, остается только полоска с названием формы и кнопки свернуть, закрыть)

[Mad_Cat]

Исправить код сворачивания всех окон

эмулируй нажатие Win+D

procedure HideAll;
begin
 keybd_event(vk_Lwin, 0, 0, 0);
 keybd_event(Ord('D'), 0, 0, 0);
 keybd_event(vk_Lwin, 0, KEYEVENTF_KEYUP, 0);
 keybd_event(ord('D'), 0, KEYEVENTF_KEYUP, 0);
end;

[Alex Cones]

эмулируй нажатие Win+D

Что и советовалось в 3-ем посте.

[niki2012]

Не думаю что это хорошая идея. Я пишу родительский контроль, который по истечению времени блокирует комп и требует ввести пароль (не за деньги, в смысле чтобы мог пользоваться только родитель). Сворачивание всех окон + отрубание эксплорера. Метод, указанный в первом (моем) посте меня устраивает, за исключением сворачивания моего приложения (а ведь надо еще в нем пароль вводить).

[Stilet]

который по истечению времени блокирует комп и требует ввести пароль

А зачем мучить сворачивание окон? Настроил пользователей, а потом написал прогу, в таймере по истечении времени которой будет стоять команда LockWorkStation
Это залочит комп под пользователя, чей сеанс. И родителям достаточно будет не говорить чаду пароль и чаще его менять. Ничего выдумывать не нуна - в винде все это есть.