Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

запретить завершение работы компьютера   Найти похожие ветки 

 
Novichok_new ©   (2007-02-11 11:29) [0]

Чтобы запретить завершение работы компьютера, я использовал следующий код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//Спрашиваем пользователя, если инициировано завершение работы.
if MessageDlg("Вы уверены?", mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true //Разрешаем завершение работы.
else CanClose := false; //Nе разрешаем завершение работы.
end;

Есть какая-нибудь альтернатива ему? - Так, чтобы не выскакивало сообщений: "Вы уверены?" или "приложение не отвечает"...
Алгоритм необходим такой:
Приложение запущено -> запрет на выключение компа (автоматически)
Завершаем работу приложения -> можно выключать


 
iXT ©   (2007-02-11 11:36) [1]

У тебя запрет на закрытие приложения, а не выключения компьютера.


 
Novichok_new ©   (2007-02-11 11:46) [2]

А компьютера тогда как?


 
C@N ©   (2007-02-11 11:48) [3]

Button1.Onclick... ///запретить закрытие приложения млжешь в онкрейт прописать...
Begin
 Form1.CanClose:= False;
End;

Button2Onclick...//Специальная кнопка для закрытия приложения....
begin
 Form1.CanClose:= False;
 Close;
 ///// тут можешь засунуть код для выключения компа.....
end;


 
iXT ©   (2007-02-11 11:54) [4]


> Novichok_new ©   (11.02.07 11:46) [2]
> А компьютера тогда как?

А зачем тебе? Ну выдернут кабель, тебе лучше от этого будет?


 
Novichok_new ©   (2007-02-11 12:05) [5]

Спасибо,

> C@N ©   (11.02.07 11:48) [3]



> Ну выдернут кабель, тебе лучше от этого будет?

Нет, это для предотвращения слов "Забыла! Ой, случайно!"
Пару раз попытаются выключить - вспомнят!

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


 
Leonid Troyanovsky ©   (2007-02-11 12:30) [6]


> Novichok_new ©   (11.02.07 12:05) [5]

Кстате, идея! - А как проследить попытку выключения компа

Хватать и не пущать.

--
Regards, LVT.



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
2-1171137763
Рустам
2007-02-10 23:02
2007.03.04
Как перенести приложение на другую машину


15-1170682020
TCrash
2007-02-05 16:27
2007.03.04
SolidWorks - вопрос по внедрению


15-1171050097
ArtemESC
2007-02-09 22:41
2007.03.04
Как сканировать книги в djvu???


15-1170959065
palva
2007-02-08 21:24
2007.03.04
Два человека - уже организация


15-1170155727
Vlad Oshin
2007-01-30 14:15
2007.03.04
Не пора прикрутить ввод кода на картинке для права задать вопрос?