Цитата

...Disable CTRL+ALT+DELETE under XP?  Autor: Andreas Kirchmeyer  Homepage: http://www.kaweb.de 2 Comment(s) to this tip [Write new comment] [ Print tip ]    Tip Rating (53):  Код       procedure DisableTaskMgr(bTF: Boolean); var  reg: TRegistry; begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_USER;  reg.OpenKey('Software', True);  reg.OpenKey('Microsoft', True);  reg.OpenKey('Windows', True);  reg.OpenKey('CurrentVersion', True);  reg.OpenKey('Policies', True);  reg.OpenKey('System', True);  if bTF = True then  begin    reg.WriteString('DisableTaskMgr', '1');  end  else if bTF = False then  begin    reg.DeleteValue('DisableTaskMgr');  end;  reg.CloseKey; end; // Example Call: procedure TForm1.Button1Click(Sender: TObject); begin  DisableTaskMgr(True); end;

Взято с http://swissdelphicenter.ch/en/

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=208035

Это все очень хорошо, НО!!! изменения действуют только после перезагрузки. А если нужно отключить три кнопки только на время работы проги? Я еще ничего по этому поводу не нашел и не смог накодить(в смысле чтобы вырубалось/врубалось в релтайме).

Судя по коду (если он рабочий), то:

Код

DisableTaskMgr(True); // вырубаем DisableTaskMgr(False); // врубаем

Т.е. если я запущу прогу с DisableTaskMgr(true); потом закрою её и никогда не будет действовать CAD? Класс)) Чего только не придумают =)

Должно вроде так работать.
Лучше это сунуть в ProjectName.dpr.

Код

... begin   Application.Initialize;   ...   DisableTaskMgr(True);   Application.Run;   DisableTaskMgr(False); end.

Это сообщение отредактировал(а) Pakshin A. S. - 17.9.2004, 20:08

Я б вообще Microsoft за такие штучки прибилбы. Когда мен первый раз такое сделали на моей рабочей машине я был в ярости!
Добавлено @ 06:47
И еще все это делается без перезагрузки.
Замечание по примеру.
RegOpen двести раз. Один раз написал с полным путем и всё! Keep it simple!

DisableTaskMgr - Delphi 7 у меня говорит [Error] Project1.dpr(12): Undeclared identifier: 'DisableTaskMgr'!!!!???????

в секции private напиши

Код

procedure DisableTaskMgr(bTF: Boolean);

в тексте модуля
напиши

Код

procedure TForm1.DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = True then begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; // Example Call: procedure TForm1.Button1Click(Sender: TObject); begin DisableTaskMgr(True); end;

Блин, че-то я не туда посмотрел!

DisableTaskMgr(True); - работает, но при нажатии Ctrl+Alt+Del вылетает сообщение (которое мне очень не нравиться, а главное она выдает в чем причина не срабатывания нажатия клавишь!), что типо "Диспетчер задач отключен администратором", может и окошко это в реестре можно вырубить???
И еще, не всегда есть доступ к изменению реестра, особенно в XP!!!

А может кто знает как это все дело провернуть через простое нажатие клавишь, по такому типу можно например нажатие горячих клавиш заставить программу ловить :

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var  Form1: TForm1;  id,id2:Integer; implementation {$R *.DFM} procedure TForm1.hotykey(var msg:TMessage); begin if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then begin ShowMessage('Ctrl + Q wurde gedrьckt !'); end; if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then begin ShowMessage('Ctrl + R wurde gedrьckt !'); {здесь что-то типо замены сообщений виндовс или не получиться ?} end; end; procedure TForm1.FormCreate(Sender: TObject); begin id:=GlobalAddAtom('hotkey'); RegisterHotKey(handle,id,mod_control,81); id2:=GlobalAddAtom('hotkey2'); RegisterHotKey(handle,id2,mod_control,82); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(handle,id); UnRegisterHotKey(handle,id2); end; end.

В этом коде, что-то не получилось у меня даже WIN+D отловить, не говоря уже о Ctrl+Alt+Del !

Таким макаром это сделать нельзя , т.е. например отловил нажатие и сообщение виндовс о запуске менеджера заменить другим каким нибудь, но без DLL, так можно??????

выломай клавишу Delete из клавы

Гм... А зачем вырубать менеджер? Можно ведь только свою прогу скрыть из списка задач даже в 2000\XP я уж не говорю о 9x

Цитата

Гм... А зачем вырубать менеджер? Можно ведь только свою прогу скрыть из списка задач даже в 2000\XP я уж не говорю о 9x

Ага... А как ты ее из списка процессов уберешь?

Цитата(Pathfider @ 20.10.2004, 14:57)

Ага... А как ты ее из списка процессов уберешь?

Тю, дык, валялся ж, вроде, на хворуме код, или я чё-та не понимаю?

Цитата(Felt @ 20.10.2004, 14:34)

А зачем вырубать менеджер?

Зтем, чтобы не только мою, но и чужие проги не вырубались!!!