Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

Адрес обработчика   Найти похожие ветки 

 
Юра   (2003-01-20 13:00) [0]

А можно ли вот так:
TableMain.AfterScroll:=TableMainAfterScroll;
@TableMain.AfterScroll:=pointer(
longint(@TableMain.AfterScroll)
);


 
Skier   (2003-01-20 13:09) [1]

А зачем сие ? Конечная цель какая ?


 
Юра   (2003-01-20 14:28) [2]

Цель странная, детская защита от копирования. В "жестоком" варианте адрес xor-ится с вычисленным значением функции от "пароль-ключ". Если функция вернет не 0 (или не какое-то другое наперед заданное число), то результат xor укажет не туда, что ведет к неработоспособности программы. Жестокость в том, что "не туда" может привести к сбою в работе не только программы, но и ОС. В "правильном" варианте создается несколько обработчиков события, их адреса заносятся в массив и потом в зависимости от значения функции от "пароль-ключ" один из них присваивается объекту.



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

Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-96664
Артём К
2003-01-21 16:16
2003.01.30
Как определить, что в Edit ни чего не введено!


4-97077
с - - + + -
2002-12-15 11:56
2003.01.30
popup menu не на delphi, а на API


3-96630
Чайник
2003-01-14 12:39
2003.01.30
HELP PLEASE!


14-96946
Driverrr
2003-01-12 11:56
2003.01.30
?


7-97056
3223(jab)
2002-11-17 15:48
2003.01.30
Web Cam





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский