Защита delphi

@Ruska · Регистрация: 03.12.2008

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Помогите пожалуйста.

Есть программа написанная на delphi которая выводит простой текст. Как защитить этот текст от копирования?

Заранее спасибо!

@Sergiuz · 28.01.2011, 12:52

Сообщение от Ruska

Здравствуйте!
Помогите пожалуйста.

Есть программа написанная на delphi которая выводит простой текст. Как защитить этот текст от копирования?

Заранее спасибо!

Не понятно куда выводим текст покажу на примере Tedit:
1. Добавляешь в uses Clipbrd; - библиотека для работы с буфером обмена
2. в событии Edit1.onKeyDown вписываешь следующие код:

Delphi

1
2

if ( (Key = ord('С')) and (ssCtrl in Shift)) then ClipBoard.Clear; // обрабываем нажатие CTRL+C
if ( (Key=vk_Insert) and (ssCtrl in Shift)) then ClipBoard.Clear;// обрабываем нажатие CTRL+Insert

3. и добиваем наконец в событии Edit1.onMouseUp следующее:

Delphi

1	ClipBoard.Clear

таким образом мы очищаем буфер обмена

@Ruska · 28.01.2011, 12:56 **[ТС]**

Текст выводится в memo

Добавлено через 1 минуту
Текст вывожу в memo

@Sergiuz · 28.01.2011, 13:31

Ruska, ну значит обрабатывай как у меня только вместо edit используй memo
т.е. обрабатывай события Memo1.onKeyDown и Memo1.onMouseUp

@Ruska 9 / 9 / 1 Регистрация: 03.12.2008 Сообщений: 556
		1
	Защита delphi 28.01.2011, 11:45. Показов 988. Ответов 3 Метки нет (Все метки) Здравствуйте! Помогите пожалуйста. Есть программа написанная на delphi которая выводит простой текст. Как защитить этот текст от копирования? Заранее спасибо! 0

@Ruska 9 / 9 / 1 Регистрация: 03.12.2008 Сообщений: 556
	28.01.2011, 12:56 [ТС]	3
	Текст выводится в memo Добавлено через 1 минуту Текст вывожу в memo 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	28.01.2011, 13:31	4
	Ruska, ну значит обрабатывай как у меня только вместо edit используй memo т.е. обрабатывай события Memo1.onKeyDown и Memo1.onMouseUp 1