[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.

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

[Drozh]

Могу показаться не точным, но если открыть файл программно, то его невозможно удалить до его закрытия

[Virus]

Я имел в виду чтобы вернулось при закрытии проги: кон.меню и заработала delete

[Interface]

Помойму он все прально подсказал:...

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

Могу показаться не точным, но если открыть файл программно, то его невозможно удалить до его закрытия

Но вот вопрос: А можно ли этот открытый файл, открыть то!???? Я такое пытался делать... но мне писалось, что нельзя двумя прогами открыть файл! (Это ж важно!!! Сделал чтоб .txt не удалялся, а он и не откроется =)) Кстате антивирусу как то это делают же... А как?

[Interface]

И ктомуж блокировать Delite и контекст. меню не выход - любой может написать прогу (или скачать) которая будет удалять файлы!!! Так что этот способ на мой взгляд совсем не плохой!

[Virus]

А мне нужна именно такая программа. (да и так файл можно из командной строки удалить). Ну помогите с контекстным меню

[Virus]

Вообще кто не понял мне нужно чтобы при запуске моей программы удалялся пункт "удалить" из конт. меню. И блокировалась клавиша DELETE.
Дополните мой код

[Interface]

Ну ты же заблочил Delеte (или всеж не заблочил? ) Так же правую кнопку блочь...

[Interface]

И по мойму удалять "удалить" совсем не простой способ....

[Virus]

Хорошо, но мне нужно чтобы в MS office, Delphi и других приложениях контекст. меню работало. А в папках Windows(XP) отключалось. Как это реализовать?