Как определить, что моё приложение хотят завершить

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Дорогая служба поддержки, В прошлом году я произвела обновление программ на компьютере: вместо Приятель 5.0 я установила Муж 1.0 и заметила, что новая программа стала производить неожиданные изменения в финансовых модулях и ограничила доступ к приложениям типа цветы и ювелир, которые прекрасно работали под управлением Приятель 5.0. Кроме того, Муж 1.0 удалил многие другие ценные программы, например, Романтика 9.9, и одновременно установил Футбол 5.0, Гараж 4.5 и Телевизор 6.0. Программа Разговор 8.0 больше не запускается, а при запуске программы Уборка Дома 2.6, вся система зависает. Я пробовала запустить Нытье 5.3, но результатов не добилась. Пожалуйста, помогите! Отчаявшаяся

procedure WMQueryEndSession(var message: TWMQueryEndSession);

message WM_QUERYENDSESSION;

procedure TMainFrm.WMQueryEndSession(var message: TWMQueryEndSession);

begin

message.Result := 1;

gEndSession := True;

end;

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose := True;

if gQueryEnd and not gEndSession then

if MessageDlg(‘Quitting (your app name). Are you sure?’,

mtInformation, mbOKCancel, 0) = mrCancel then

CanClose := False

end;

{/codecitation}

Добавить комментарий