Как перехватить нажатие...

← →
Гость (2004-07-30 12:21) [0]

кнопки PrintScrenn (рядом со scrolllock) или не допустить копирование в буфер моей формы в виде изображения?

← →
Анонимщик © (2004-07-30 13:56) [1]

А фотографировать разрешишь?

← →
Гость (2004-07-30 13:57) [2]

нет

← →
Гость (2004-07-30 13:59) [3]

я вот думаю, мож при нажатии этой кнопки чистить буфер, но как это сделать (очистка) исам код клавиши я не нашел

← →
Анонимщик © (2004-07-30 14:01) [4]

В любом случае возможно GetDC(0).
Так что ничег не выйдет.

← →
olookin © (2004-07-30 14:01) [5]

код VK_SNAPSHOT

← →
Анонимщик © (2004-07-30 14:01) [6]

Да ерунду говоришь.

← →
Гость (2004-07-30 14:02) [7]

VK_SNAPSHOT - пробовал, не срабатывает

← →
olookin © (2004-07-30 14:06) [8]

не срабатывает значит по другой причине. Код PrintScreen - VK_SNAPSHOT

← →
Гость (2004-07-30 14:08) [9]

ради прикола пробовал:
keypreview:=true
в onkeydown

if key=VK_SNAPSHOT then showmessage("OK!")
и ничего...

← →
olookin © (2004-07-30 14:16) [10]

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(vk_snapshot,0,0,0);
keybd_event(vk_snapshot,0,KEYEVENTF_KEYUP,0);
end;

а потом в Painte картинку вставь из буфера и посмотри что получилось

← →
Гость (2004-07-30 14:22) [11]

так мне надо наоборот - чтоб никто не смог скопировать мою форму в буфер!

procedure TForm1.FormShow(Sender: TObject);
begin
application.OnMessage:=getmsg;
end;

procedure TForm1.Getmsg(var Msg: TMsg; var Handled: Boolean);
begin
if (msg.message=WM_keyup) and
( msg.wParam=vk_snapshot)
then showmessage("gg");
end;

для того чтобы чистить буфер мона сделать так

Uses Clipbrd

....
Clipboard.clear;
....
покрайней мере я делал так, когда писал резидента не позволяющего копировать текст и картинки из моей программы. Работало.

← →
Batoon (2004-07-30 20:51) [14]

Спасибо всем!Получилось!

2Кириешки
ты забыл написать:
Clipboard:=tclipboard.CreateCODE> :)))

Как перехватить нажатие... Найти похожие ветки