Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
14-1100948044
Progh
2004-11-20 13:54
2004.12.12
Подскажите ХОРОШУЮ статью перехвата WIN API с примерами на Delphi


6-1096864298
Sasha aka Slon
2004-10-04 08:31
2004.12.12
локалка


1-1101742930
Serjio+
2004-11-29 18:42
2004.12.12
печать наклеек на TLP 2824


3-1100510736
Брат
2004-11-15 12:25
2004.12.12
Создание кросс-отчета


9-1092728329
NightFire
2004-08-17 11:38
2004.12.12
Люди подскажите с ИИ




   Наверх