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

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

← →
Гость   (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]

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

---

← →
olookin ©   (2004-07-30 14:43) [12]

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;

---

← →
Кириешки ©   (2004-07-30 17:47) [13]

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

Uses Clipbrd

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

---

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

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

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

---

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

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



Память: 0.48 MB
Время: 0.026 c