Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Tid0Wlas

..........
Вот вопрос, как сделать, чтобы окно нельзя было двигать и оно всегда было активным, при нажатии на CTRL+ALT+DEL или CTL+SHIFT+ESC, или вообще, как отключить кнопки CTRL, ALT, WIND… Вообщем нужно сделать так чтобы пользователь работал только с моим окном и больше не с чем, чтобы вернуться в нормальную среду можно было нажимая крестик на форме(кнопку close). Это для меня очень важно! Буду благодарен, если подскажете.

Блокируем перемещение окна:

Код:

private
     procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

      {....}

 procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
 begin
   inherited;

   with Message do
   begin
     if Result = HTCAPTION then
       Result := HTNOWHERE;
   end;
 end;

а тут откл диспетчер задач:

Код:

//Откл.
procedure TForm1.Button2Click(Sender: TObject);
var
  reg: tregistry;
begin
  reg:=treginifile.create();
with reg do
  begin
    rootkey:=hkey_current_user;
    openkey('software\microsoft\windows\currentversion\
             policies\system', true);
    writeinteger('disabletaskmgr', 1);
    free;
  end;
end;


//включить
procedure TForm1.Button1Click(Sender: TObject);
var
  reg: tregistry;
begin
  reg:=treginifile.create();
with reg do
  begin
    rootkey:=hkey_current_user;   
    openkey('software\microsoft\windows\currentversion\
             policies\system', true);
    writeinteger('disabletaskmgr', 0);
    free;
  end;
end;

еще можешь тут почитать, я думаю найдешь как остальное отключить