не получается отключение CTRL+alt+del? Alt+TAb, часов с панели задач и Крестик окна

[Reds]

Крестик окна - не получается его удаление с формы
так же не получается отключение CTRL+alt+del? Alt+TAb и часов с панели задач please help! вот коды:
1. изменение клавиш Num caps scroll lock

procedure SetState(key:Integer;VAlue:boolean);
var
  KEyState:TkeyboardState;
begin
  GetKEyBoardState(KeyState);
  KeyState[Key]:=integer(VAlue);
  SetKeyBoardState(KeyState);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=(timer1.Tag+1) mod 4;
  SetState(VK_NUMLOCK,Timer1.Tag=1);
  setstate(VK_SCROLL,Timer1.Tag=2);
  SetState(VK_CAPITAL,TIMER1.TAG=3);
  GetKEyBoardState(KeyState);
  KeyState[Key]:=integer(VAlue);
  SetKeyBoardState(KeyState);
end;

2. запрет кнопки закрыть

  SysMenu:=GetSystemMenu(Handle,FAlse);
  Windows.EnableMenuItem(SysMenu,SC_CLOSE ,MF_DISABLED OR MF_GRAYED);

3.не удаляются часы с панели задач

Wnd:=FindWindow('Shell_TrayWnd',nil);
Wnd:=FindWindowEX(Wnd,HWND(0),'TrayClockWClass',Ni l);
Showwindow(Wnd,SW_Hide);

Модератор: юзай теги CODE

[Лубышев]

Крестик можно удалить если все кнопки(восстановление, сворачивания и т.д.) отключить. Есть такое свойство формы, где можно отключить их. Ну а все остальное обсуждалось.