Закрыть все дочерние (модальные и.д.) окна программы

[designer999]

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

  for I := 0 to Screen.FormCount - 1 do
  begin
    with Screen do
    begin
      if Forms[I].Name <> 'Form1' then Forms[I].Close;
    end;
  end;

это пробовал, не работает, для всех форм.....

[designer999]

Сообщение от Аватар

И почему Handle узнать нельзя?

ну а как узнать Handle если не знаеш что за диалоговое окно выскочит, вот например у меня есть webbrowser и там исполняются скрипты, и он выдал модальное сообщение как узнать Handle именно этого окна......?

[designer999]

delete....................

[designer999]

решил использовать

postmessage(findwindow(nil,'Сообщение с веб-страницы'),WM_CLOSE,0,0);

но проблема в том что заголовок окна не всегда известен, нашол функцию по поиску дочерних окон EnumChildWindows

делал вот так:

function HandleEnumeration(Wnd: THandle; Param: integer):LONGBOOL;stdcall;
begin
 postmessage(Wnd,WM_CLOSE,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   EnumChildWindows(form1.Handle, @HandleEnumeration, 0)
end;

но вместо закрытия форм, пропадают все элементы на форме, в чём причина может быть?

[designer999]

ну что некто не знает ?, а то полная тишина - реально очень нужно (((

[TwiX]

Дочерние окна у формы - это её элементы.

1. Это должно работать:

for I := 0 to Screen.FormCount - 1 do
  begin
    with Screen do
    begin
      if Forms[I].Name <> 'Form1' then SendMessage(Forms[I].handle, WM_CLOSE, 0, 0);
    end;
  end;

Эта штука может не закрывать все формы из-за принципа работы wm_close.
MSDN:

Remarks

An application can prompt the user for confirmation, prior to destroying a window, by processing the WM_CLOSE message and calling the DestroyWindow function only if the user confirms the choice.

2. Можно перебирать все окна в системе. По окну можно определить процесс (в гугле можно спросить как, сейчас не помню). И соответственно, если мы находим окно нашего процесса, мы сверяем его заголовок/класс с основной формой. Если не главная форма - закрываем.