Ставим программу под ключ

[>A1RN1kE<]

Добрый день!
В данной теме я расскажу как поставить программу под ключ активации..
Нам потребуется:

В начале всей программы создать новую форму(Form1)
В Form1 добавить:
Поле для ввода;
Speed кнопка;

Поле для ввода можно подписать так ''Ключ активации''
Speed кнопку можно подписать так ''Активировать''

Speed кнопка -> клик

if(c("edit1")->text =="[COLOR="#FF0000"]ключ[/COLOR]"){
// если текст поля для ввода равно значению ключ,т.е. в нём будет написано это слово,то
HideForm(Form1, SW_SHOW); // прячется форма с активацией
ShowForm([COLOR="#FF0000"]Form2[/COLOR], SW_SHOW); // открывается форма с программой
}
else{
// иначе выдаст такое окошко:
MessageBox("Ключ введён не верно.", "Ключ введён не правильно.");
}

Ключ Пишем свой ключ который нужно будет ввести
Form2 Ввести название формы с программой
На этом всё...​