Jak zrobić nr.seryjny programu ??

Cześć ! Mam pytanie.
Jak zrobić nr.seryjny programu ?? To znaczy,że po wpisaniu do pola Edit1 np. xcf-675 uruchamiał się program a po wpisaniu innych cyferek wyskakiwał komunikat np. błędne hasło ????
Pozdrawiam ! [cya]

zrub button "wejście" albo jakiś innny i w OnClick wpisz

if
edit1.text=75x5654 //czy jaki ci tam trzeba numer
then
begin
form1.close; //forma z zapytaniem
release;
form2.show; //forma z programem głównym
end
else
showmessage('blandne haslo');

Uff.

zrub button "wejście" albo jakiś innny i w OnClick wpisz

if
edit1.text=75x5654 //czy jaki ci tam trzeba numer
then
begin
form1.close; //forma z zapytaniem
release;
form2.show; //forma z programem głównym
end
else
showmessage('blandne haslo');

Uff.

ja bym raczej zrobil cos na wzor splash screen'a z ShowModal i pod niego zrobil ten kod, bo chyba o taki efekt chodzi.

wykorzystaj do tego rejestr!nech program sprawdza czy minelo np. 30 dni i wtedy niech sie juz nie wlacza chyba ze tylko na kod

Komponencik do stworzenia 30 dniowego triala?

http://seboo.tronic.net.pl/sandstorm/avlockl.zip

Dla OnCreate (dla formy) dać coś takiego

var
S : string;
begin
S := InputBox('Podaj jakieś hasło', 'Pytanie', '');
if S = 'hasło' then
Abort
else
Application.Terminate;
end;