Скачать: CL | DM;

Как запретить пользователю закрыть программу.   Найти похожие ветки 

← →
Slash_from_Ryazan   (2004-01-26 02:27) [0]

Подскажите, пожалуйста, как можно сделать так чтобы пользователь программу закрыть не мог, а при завершении сеанса или выключении компьтера программа завершала свою работу без задержек и принудительной выгрузки из памяти.

---

← →
Сергей Чурсин ©   (2004-01-26 02:47) [1]

смотря какой пользователь :)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;

[CTRL][ALT][DEL]
"....
Теперь готово, жми на СTRL-F9, и спеши подсовывать прогу врагу. Однако у нашей программы есть недостаток: хоть мы и запираем клаву, юзер всё равно сможет сбить нашу прогу CTRL-ALT-DEL. Непорядок... Будем исправлять. А исправить это можно двумя способами:
1. Отключить нажатие "трёх веселых кнопок".
2. Сделать так, чтобы наша прога не видна была через эти самые клавиши.

Первый способ заключается в самой проге, а для второго нужно вызвать функцию RegisterServiceProcess:

program antiklava;
uses Windows; /* подключение необходимых модулей */
var
klava:boolean; /* объявление логической переменной */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
begin
klava:=true; /* устанавливаем значение переменной */
RegisterServiceProcess(GetCurrentProcessID, 1);
while true do /* начинаем бесконечный цикл */
begin
Yield; /* делаем так, чтобы всё не подвисло :)*/
Sleep(2*60*1000); /* ничего не делаем 2 минуты */
klava:=not klava; /* присваиваем переменной противоположное значение */
if klava then SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0) /* отключаем служебные комбинации клавиш */
else
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;
end.

И всё! Мы не видны через CTRL-ALT-DEL.
...."
http://delphi.aiq.ru/raznoe/raznoe7.htm

Ну и так далее :)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c