Перезагрузка и Host- процесс

← →
qwerty2 (2003-06-10 12:33) [0]

Пользовательский модуль в виде DLL (некоторая форма) подключается к Host- процессу. При нажатии некоторой книпки на этой форме запускается процесс в отдельном потоке. Этот процесс при необходимости должен перезагрузить компьютер. Проблема в том, что когда он вызывает перезагрузку то Host- процесс не может завершиться из за того что не освобождены ресурсы занятые формой. Освободить форму из дополнительного потока также невозможно.

← →
Digitman (2003-06-10 12:39) [1]

Форма в DLL вызывается как модальная ?

← →
qwerty2 (2003-06-10 12:49) [2]

да, модальная.

← →
Digitman (2003-06-10 12:54) [3]

что же мешает модальной форме реагировать на сист.сообщения WM_QUERYENDSESSION, WM_ENDSESSION ?

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

см. TThread.Terminate, PostThreadMessage(), MsgWaitForMultipleObjects()

← →
qwerty2 (2003-06-10 16:08) [4]

>дождаться завершения этого потока

можно уточнить? чтоб узнать что поток завершен я посылаю в последней строчке OnTerminate этого потока некоторое сообщение и в основной программе жду этого сообщения с помощью MsgWaitForMultipleObjects (в процедуре обработки WM_ENDSESSION).
Теперь Host- процесс не выдает сообщение об ошибке при закрытии, а закрывается нормально но процесс перезагрузки при этом прекращается. И что то очень долгое получается ожидание завершения - секунд 20.

← →
Digitman (2003-06-10 16:18) [5]

> чтоб узнать что поток завершен

а с чего бы ему завершиться, потоку ? он же вроде бы у тебя ждет, пока не завершится процесс-перезагрузчик !

приведи-ка полный код твоего наследника TThread...

← →
qwerty2 (2003-06-10 17:01) [6]

и еще хотелось бы спросить насчет MsgWaitForMultipleObjects, точнее ее последнего параметра. Windows предлагает мне небогатый выбор из QS_KEY,QS_MOUSEMOVE, QS_MOUSEBUTTON,QS_POSTMESSAGE,QS_TIMER,QS_PAINT,QS_SENDMESSAGE,QS_HOTKEY,QS_ALLPOSTMESSAGE. что же нужно использовать? если QS_POSTMESSAGE то MsgWaitForMultipleObjects будет просыпаться от любого сообщения в очереди? но мне то надо только реакция на мое сообщение. И еще не могу понять взаимодействие дополнительного потока и основного потока VCL. Сейчас делаю так: в OnTerminate:
postmessage(getcurrentprocess,wm_user,0,0);
в процедуре обработки WM_ENDSESSION:
hh:=getcurrentprocess;
msgwaitformultipleobjects(1,hh,false,INFINITE,qs_postmessage); так как и основной и дополнительный поток принадлежат одному и тому же процессу. мне кажется именно здесь что то делаю не так.

← →
Digitman (2003-06-10 17:13) [7]

приведи-ка полный код твоего наследника TThread !!

← →
qwerty2 (2003-06-11 10:08) [8]

Сейчас у меня такая ситуация.
Перезагрузку инициирует сам дополнительный поток, дополнительного процесса порождаемого этим потоком нет.
в методе Execute:
begin
ff:=FObj.Create;
ff.MFind(FNmr);
synchronize(proc1);//дествия которые надо выполнить с результатами процедуры поиска - отображение их на форме
end;
//-в модуле где описывается объект FObj:
procedure FObj.MFind(Str:String);
begin
...
if {некоторое условие} then ExitWindowsEx(EWX_REBOOT,0);
...//некоторые дальнейшие действия

в обработчеке OnTerminate:
...
postmessage(getcurrentprocess,wm_quit,0,0); //последняя строчка
end;

procedure TForm1.EndSess(var mes:TMessage);//обработчик WM_ENDSESSION
var hh:THandle;
begin
if mes.WParam<>0 then begin
if not(thr1.Terminated) then thr1.Terminate;
hh:=getcurrentprocess;
msgwaitformultipleobjects(1,hh,false,INFINITE,qs_postmessage);
Form1.Free;
end;
end;

← →
qwerty2 (2003-06-16 13:08) [9]

Все еще не устранена проблема. Почему то процес перезагрузки прерывается. Помогите пожалуста!

← →
Digitman (2003-06-16 13:55) [10]

ясно.
никакой процесс у тебя в потоке не "запускается" - вводишь ты людей в заблуждение.

procedure TForm1.EndSess(var mes:TMessage);//обработчик WM_ENDSESSION
begin
if mes.WParam<>0 then
begin
thr1.Free;
mes.Result := 0;
ModalResult := mrCancel;
end;
end;

← →
qwerty2 (2003-06-16 15:00) [11]

//Digitman © (16.06.03 13:55)

странно, но происходит то же самое. исчезает панель задач, все программы благополучно закрываются кроме моей и ее Host-процесса. по прошествии очень длительного времени закрываются все таки и они. но вот перезагрузка не происходит. причем длительная задержка случается какраз при выполнении thr1.Free;

← →
Digitman (2003-06-16 15:13) [12]

> причем длительная задержка случается какраз при выполнении
> thr1.Free

а что это еще за "...//некоторые дальнейшие действия
" ? код.поток процесса инициировал шатдаун - и продолжает неторопливо "пыхтеть по хозяйству" ? Закругляться надо ему немедленно !

Это - хэлп. Читай сюда :

During a shutdown or log-off operation, applications that are shut down are allowed a specific amount of time to respond to the shutdown request. If the time expires, Windows displays a dialog box that allows the user to forcibly shut down the application, to retry the shutdown, or to cancel the shutdown request. If the EWX_FORCE value is specified, Windows always forces applications to close and does not display the dialog box.

← →
Федя (2003-06-16 15:55) [13]

Вся проблемма в
...//некоторые дальнейшие действия
у меня тоже такое было
тебе надо сделать так чтобы примерно так

Procedure Execute() var reboot:boolean; begin while not Terminated do begin sleep(1); //без этого не советую if reboot then continue if <...> then begin ExitWindowsEx(EWX_REBOOT,0) then reboot:=true; continue; end; end

чтобы правильно завершить поток, когда система его попросит
а форма тут не причем

Перезагрузка и Host- процесс Найти похожие ветки