| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
программа расшибается при попытке закрытия [Delphi, Windows]
zetta © (2002-08-02 10:59:00)проблема такая: запускаю процесс 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;
Как вылечить?
zetta (2002-08-05 16:20:00) [1]нужно именно экстренное прерывание процесса.
zetta (2002-08-05 16:17:00) [2]просто xit. привязывается так: w.OnClose:=TOnEventAccept(makemethod(nil,@xit));
отказ от halt не помог.
Vladimir Kladov (2002-08-03 14:38:00) [3]xit или TMyObject.xit ? Это существенно.
Terminate будет убивать процесс без попытки подождать его легального завершения. Halt performs an abnormal termination of a program and returns to the operating system. Может, w.Close достаточно?
| |
