Защита приложения средствами Delphi - Примеры - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Понедельник, 05.12.2016, 21:37 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Какой версией Delphi пользуетесь?
Всего ответов: 785

Главная » Статьи » Delphi » Примеры

Защита приложения средствами Delphi
procedure TForm1.FormShow(Sender : TObject); 
var atom : integer; 

CRLF : string; 
begin 

if 
GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then 
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT') 
else 
begin 
CRLF := #10 + #13; 
ShowMessage('This programm will start only once' + CRLF + 
for next start reboot windows please, or...' + CRLF + 
'REGISTER PROGRAM !!'); 
Close; 
end; 
end;
Категория: Примеры | Добавил: dolphin (21.03.2009)
Просмотров: 1753 | Рейтинг: 0.0/0

Всего комментариев: 0
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

Статистика пользователей
Всего: 409
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 4
Гостей: 4
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz