Поток -> DLL -> модальная форма. Как закрыть ее?

← →
Nicolas_ (2002-04-18 15:13) [3]

1. Все плагины могут работать одновременно. Для этого используются потоки. Поток заканчивает работу когда выполнит функцию Execute. Чтобы этого не произошло раньше времени, используется модальное окно. Можно конечно делать так:

procedure TPluginThread.Execute;
var PluginExecute: TPluginExecute;
begin
libHandle := LoadLibrary(PN);
try
if libHandle <> 0 then begin
@PluginExecute := GetProcAddress (libHandle, "PluginExecute");
if @PluginExecute <> nil then
PluginExecute(Application.Handle, ComPort1);//это и есть
//вызов окна Show (а не ShowModal)
//если окно не модальное, то сделаем цикл
repeat
//пустой цикл
until (not Terminated);
end;
finally
FreeLibrary(libHandle);
end;
end;

но не знаю, правильно ли это.

2. Чтобы посылать WM_CLOSE модальному окну опций плагина, то надо быть уверенным, что оно существует. Но дело в том, что если окно не существует/не создавалось, то (FormOptions <> nil) = TRUE и даже Assigned(FormOptions) не показывает реальной ситуации. Как быть?

Поток -> DLL -> модальная форма. Как закрыть ее? Найти похожие ветки