[090808]

Проблема с alt-f4 решена

Теперь остается вопрос как сделать запрет на win+L и alt+TAB

[Mostovoi]

А какая ошибка-то вылазит?

[090808]

Build
[Error] Unit1.pas(420): Undeclared identifier: 'FormKeyDown'
[Error] Unit1.pas(420): ';' expected but '(' found
[Error] Unit1.pas(421): ';' expected but ')' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[M.A.D.M.A.N.]

Не объявлен обработчик события OnKeyDown

[090808]

куда его написать ^_^ ?

[DeSoLaToR]

Код:

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

В самом начале, где оглашаются все процедуры, воткни свою...
И когда пишеш чтото сам, или копируеш, создавай лучше по стандарту, заходиш в форму, евенты, фромкейдавн, кликаеш два раза, он тебе формирует процедуру и описывает её в начале модуля сам.