[qwerty111]

вобщем необходимо запретить вызов диспетчера задач в приложении или же отключить кнопки ctrl+alt+delete/shift+ctrl+escape. Находил в факе и на форуме решения, но ни 1 из них не работает. может кто-то поделится рабочим кодом? если что поподробнее пожалуйста т.к. я новичёк.

[Harlequin]

поставь хук и не пропускай ctrl+alt+delete/shift+ctrl+escape дальше на обработку
если не знаешь что такое хуки - спросу у гугла Delphi hook

[AND_REY]

Вот простой пример вкл/выкл диспетчера:

Uses
Registry;
// Выкл диспетчер.
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;
// Вкл диспетчер.
procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 0);
Reg.CloseKey;
Reg.Free;
end;

Admin: Тег "QUOTE" импользуется для цитирования, а "CODE" для размещения кода, неужели этот так сложно для понимания...
Выношу замечание.

[qwerty111]

спасибо всем за ответы! кстати у меня сначала ничего не выходило, потом заметил в строчке

Код:

Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);

пробел в слове version. убрал его и теперь все прекрастно работает.