[Virus]

Срочно нужно написать прогу, которая запрещает удаление файлов
(контекстное меню и клавиша DELETE).
Вот посмотрите что я намутил. Не знаю как убрать контекстное меню. (Только на сеанс программы. А при закрытии возращает всё назад)
ЕСЛИ КТО СМОЖЕТ, ТО ПОЖАЛУЙСТА ВЫЛОЖИТЕ РАБОЧИЙ ИСХОДНИК!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  { Private declarations }
  procedure WMHotkey( Var msg: TWMHotkey ); message WM_HOTKEY;
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.WMHotkey(Var msg: TWMHotkey);
var h : hWnd;
Begin
  If msg.hotkey = 1 Then Begin
    If not IsIconic(Application.Handle) Then
       begin

         ShowMessage('Удаление запрещено!');
       end;
    BringToFront;
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
If not RegisterHotkey (Handle, 1, 0, VK_DELETE) Then
 ShowMessage('Error hootkey');
end;

end.

СРОЧНО нужно. Спасибо!!!