программа расшибается при попытке закрытия

← →
zetta © (2002-08-02 10:59) [0]

проблема такая: запускаю процесс T2 (TThread) и он спокойненько себе выполняется, обновляя в форме w progressbar. Когда я нажимаю на крестик закрытия программы и отвечаю "No", программа падает на пузо и система выдает всем нам знакомое окошко с красным крестиком и кнопками "Close" и "Details..." "This program has performed an illegal operation and will be shut down. If the problem persists, contact the program vendor". Нажимаю на "Details...", а там пишут: invalid page fault in kernel32.dll.
При нажатии в моей программе на "Yes" все происходит хорошо: процесс закрывается, окно закрывается и программа закрывается без проблем. Вот процедура xit, которая привязана к w.Onclose:

procedure xit( Sender: PObj; var Accept: Boolean );
begin
accept:=msgbox("Terminate program?",MB_YESNO)=ID_YES;
if accept then begin t2.terminate;w.Close;halt; end else w.Update;
end;

Как вылечить?

← →
Vladimir Kladov (2002-08-03 14:38) [1]

xit или TMyObject.xit ? Это существенно.
Terminate будет убивать процесс без попытки подождать его легального завершения. Halt performs an abnormal termination of a program and returns to the operating system. Может, w.Close достаточно?

← →
zetta © (2002-08-05 16:17) [2]

просто xit. привязывается так: w.OnClose:=TOnEventAccept(makemethod(nil,@xit));
отказ от halt не помог.

нужно именно экстренное прерывание процесса.

программа расшибается при попытке закрытия Найти похожие ветки