Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Как заблокировать Print Screen ?   Найти похожие ветки 

 
boban   (2004-10-27 19:00) [0]

Как из приложения заблокировать клавишу "Print Screen", чтобы пользователь не мог снять копию экрана в буфер обмена ?

Заранее благодарю


 
Rex Well   (2004-10-27 19:34) [1]

Hook

Отлавливаешь сообщение нажатия кнопки, распознаешь эту кнопку - Prt Scr и сводишь состав сообщения на нет. Например, меняешь код клавиши, скажем на Pause Break или End, или еще какую-нить неиспользуемую клавишу...

Это как один из вариантов... А там смотри сам.


 
Boban   (2004-10-28 16:18) [2]

Нашел в FAQ, может кому интересно:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const id_SnapShot = 101;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
  //Здесь можно ничего не вставлять - в буфер обмена все-равно ничего не попадет
  if Msg.HotKey = id_SnapShot then
    ShowMessage("GotIt");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle,
     id_SnapShot,
     0,
     VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;


 
Boban   (2004-10-28 16:19) [3]

Удалено модератором


 
cerber1 ©   (2004-10-31 13:27) [4]

А можно через Lockmemory с указателем на clipboard.


 
Anatoly Podgoretsky ©   (2004-10-31 13:36) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
14-1101124657
menart
2004-11-22 14:57
2004.12.12
У кого есть delphi7


14-1100873270
by
2004-11-19 17:07
2004.12.12
Есть ли в Delphi 7 Professional компонент TClientDataSet?


1-1101718296
Oyster
2004-11-29 11:51
2004.12.12
Проблемы с кучей в BP


14-1101301441
РВА
2004-11-24 16:04
2004.12.12
Где найти


1-1101551535
Артем Владимирович
2004-11-27 13:32
2004.12.12
Как стереть самого себя