RE: Отключить Alt+F4 (Delphi)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Отключить Alt+F4 (Delphi) - 2007-08-23 13:25:05.810000
|
|
|
TeNbOK
Сообщений: 154
Оценки: 0
Присоединился: 2007-08-21 11:04:41.766666
|
Я так понял, что задача стоит в ограничении юзверям на запуск определенных приложений… но подход в корне неверен, потому что смысл блокировать запуск только мышОй :) а вот в реестре можно поправить определенные ключи - скорее всего даст результат
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2007-08-23 13:36:55.800000
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
Да там процессы отслеживать надо А не кнопки блокировать. Это детский лепет. Она (прога) вообще невизуальная должна быть
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2007-08-25 00:10:53.590000
|
|
|
Yashin
Сообщений: 964
Оценки: 0
Присоединился: 2007-05-09 20:18:01.153333
|
да делай сплайсинг системных функция на создание и убитие процессов. При создании проверяешь путь к екзе, а при удалении сверяешь с именем своего процесса. За информацией на WASM и читай статьи Ms-Rem`a
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2008-01-26 22:41:10.313333
|
|
|
boombox.exe
Сообщений: 16
Оценки: 0
Присоединился: 2008-01-26 12:21:36.283333
|
Ведь в реестр доступ есть, вытянуть твою пропись с Run элементарно. А так, хотелось бы поддержать Yashin… Потому как все таки его пример корректней подходил под вопрос. И при завершение работы ОС будет посылать всем активным окнам сообщение о завершение работы, и будет ждать пока они сами корректно завершатся и закроются. При команде же CanClose := false, у ОС не будет возможности завершить роботу. Представте себе как в уч.заведение после пары, преподу надо ходить и вырубать компы через клавишу на системном блоке..
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2008-01-27 07:07:27.636666
|
|
|
Alaget
Сообщений: 330
Оценки: 0
Присоединился: 2007-11-08 15:57:53.170000
|
Как такому человеку могли что то доверить. Когда мне что-то заказывают я не лезу на форум задавать вопросы типа "Отключить Alt+F4". Тебе не приходило в голову выдрать две клавиши Alt и F4.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
end;
Отловить завершение работы, и завершить все приложения.
type
TForm1 = class(TForm)
private
procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
public
end;
implementation
{$R *.DFM}
procedure TaskKill;
var
pTask: PTaskEntry;
Task: Bool;
ThisTask: THANDLE;
begin
GetMem(pTask, SizeOf(TTaskEntry));
pTask^.dwSize := SizeOf(TTaskEntry);
Task := TaskFirst(pTask);
while Task do
begin
if pTask^.hInst = hInstance then
ThisTask := pTask^.hTask
else
TerminateApp(pTask^.hTask, NO_UAE_BOX);
Task := TaskNext(pTask);
end;
TerminateApp(ThisTask, NO_UAE_BOX);
end;
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
if Msg.EndSession = True then
TaskKill;
inherited;
end;
Только это программа для потехи, и неудобства ребятишек. Обойти её можно множеством способов. Нужно создать список разрешённых процессов,и не разрешённые сразу убирать. Кстати вчера был на форуме грузчиков там 5_nix вёл жаркую дисскусию по поводу правильной хватки коробок с чипсами.
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2008-01-27 12:20:20.566666
|
|
|
5_nix
Сообщений: 231
Оценки: 0
Присоединился: 2007-02-26 00:43:17.386666
|
boombox.exe, Alaget: Мда, ребята, вы откуда вылезли? Взгляните внимательнее - вопрос был задан в августе и давно исчерпан. boombox.exe: quote:
Ведь в реестр доступ есть, вытянуть твою пропись с Run элементарно. В реестр доступа нет. quote:
А так, хотелось бы поддержать Yashin… Yashin действительно молодец. quote:
И при завершение работы ОС будет посылать всем активным окнам сообщение о завершение работы, и будет ждать пока они сами корректно завершатся и закроются. При команде же CanClose := false, у ОС не будет возможности завершить роботу В 19 посте я расписал плюсы и минусы этого варианта. quote:
Представте себе как в уч.заведение после пары, преподу надо ходить и вырубать компы через клавишу на системном блоке. Ни кому не надо бегать. На форме была менюшка, на которой, по нажатию определенной кнопки все замечательно вырубалось (Естественно доступ к ней был не у всех, а тех кому надо). Alaget: quote:
Как такому человеку могли что то доверить. А что ты вообще про меня знаешь, пустослов? quote:
Тебе не приходило в голову выдрать две клавиши Alt и F4. Поверь, это не продуктивное решение. quote:
Кстати вчера был на форуме грузчиков там 5_nix вёл жаркую дисскусию по поводу правильной хватки коробок с чипсами. Ты часто на нем бываешь? "по поводу правильной хватки коробок с чипсами" - сама постановка вопроса наводит на мысль что из твоего рта попахивает говнецом (Вот не повиг, как ее брать). ps: Дай ссылку на форум грузчиков, всем форумом посмеемся.
|
|
|
RE: Отключить Alt+F4 (Delphi) - 2008-01-27 13:42:29.756666
|
|
|
Alaget
Сообщений: 330
Оценки: 0
Присоединился: 2007-11-08 15:57:53.170000
|
Интелектуально.
|
|
|
|
|