Stfw.RuКак создать shareware защиту?
В этой статье мы поговорим о том как создать программу,в которой после регистрации (ввода лицензионного ключа) - отображаются скрытые возможности. Владимир Стеблевский
🕛 04.12.2006, 14:19
Немного о том как работает защита...К примеру:кнопка "открыть cd-rom" недоступна чтобы она стала доступной нужно ввести регистрационный код.Мы нажимаем на "регистрация" появляется поле где мы вводим пароль.
При нажатии на кнопку OK программа сохраняет то что мы набрали в реестре.
При своем запуске программа считывает то что мы написали в реестре(т.е. пароль введенный ранее)и если он совпадаеи с тем который мы указали,тогда кнопка становится активной.В противном случае,кнопка остается неактивной.
Итак делаем:
1).-запускаем полюбившийся нам делфи.
2).-создаем новый проект.
3).
caption=shareware
width:=242
height:=140
BorderStyle=bsSingle
Position=poScreenCenter
uses=mmsystem,registry;
4).Создаем 3 кнопки:button1,button2,button3 и текстовое поле edit1
button1.caption=Регистрация
button2.caption=Открыть cd-rom
button1.caption=Выйти
edit1.text='snake software'//это код регистрации
edit1.text.visible:=False; //делаем текстовое поле невидимым
button2.enabled:=False //делаем неактивной кнопку "открыть cd-rom"
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, Form1.Handle);
end;
-procedure TForm1.Button3Click(Sender: TObject);
begin
Halt;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Hide;
end;
5).Создаем вторую форму.
caption=registration
width:=234
height:=75
BorderStyle=bsSingle
Position=poScreenCenter
uses=registry;
6).Создаем кнопку(button1),и поле для ввода текста(edit1)
button1.caption=ok
7).на событие кнопки onclick пишем:
var Reg: TRegistry;
begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; if Reg.OpenKey('\Micr.I1\CLSID', True) then begin Reg.WriteString('tr',edit1.text); Reg.CloseKey; end; finally Reg.Free; MessageDlg('Ща проверим!',mtInformation,[mbOk],0); inherited; end; HALT;
end;
8).Возвращаемся к нашей Form1(первой форме).В вверху
в var пишем pwd:string;
На событие формы oncreate пишем:
var
Reg:TRegistry;
begin try Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CLASSES_ROOT; {False because we do not want to create it if it doesn't exist} Reg.OpenKey('\Micr.I1\CLSID',False); pwd:=Reg.ReadString('tr'); finally Reg.Free; end;
if pwd=edit1.Text then begin button2.Enabled:=True;
end;
Вот собственно и всё!Если у вас есть какие-то проблемы,пишите на tronekas@yandex.ru Исходник того что мы сделали вы можете найти на snakesoft.nm.ru. Там же вы найдете мои программы.