закрытие всех форм проложения

← →
malakai (2002-08-09 18:28) [0]

Привет,
у меня есть ЕХЕ окуда открываются много форм которые находится в ДЛЛ-ках. В процесе работы с одной любой из форм возникат необходимость закрыть все окна приложения кроме главного(ЕХЕ). Я из этой формы посылаю собщение в главное окное:
try
...
except
PostMessage(FMainHandle, WM_CONNECTION_LOST, 0, 0);
end;

в главное окно есть такой код:

...
procedure OnConnectionLost(var Msg: TMessage); message WM_CONNECTION_LOST;
...
function EnumThreadWndProc(Hwnd: THandle; LPARAM: Longint): Boolean; stdcall;
begin
if Hwnd <> frmMain.Handle then
if Hwnd <> Application.Handle then
SendMessage(Hwnd, WM_CLOSE, 0, 0);
//SendMessage(Hwnd, WM_SYSCOMMAND, SC_CLOSE, 0);
Result := True;
end;
procedure TfrmMain.OnConnectionLost(var Msg: TMessage);
begin
EnumThreadWindows(GetCurrentThreadId, @EnumThreadWndProc, 0);
SetDisconnectState();
MessageDlg("Connection lost.", mtInformation, [mbOK], 0);
end;

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

← →
malakai (2002-08-11 18:47) [1]

аууу, народ отзовитесь кто нибудь !

закрытие всех форм проложения Найти похожие ветки