Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.10.2008, 23:06
Virus Virus вне форума
Новичок
 
Регистрация: 09.09.2008
Сообщения: 67
Репутация: 5
Смех Удалить не возможно

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

Код HTML:
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.

СРОЧНО нужно. Спасибо!!!
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:26.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025