|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Protection of Shareware program
This is a protection for your program, which doesn't break functionality of your program.
procedure TForm1.FormShow(Sender: TObject);
begin
if GlobalFindAtom('THIS_IS_SOME_OBSCURE_TEXT')=0 then
GlobalAddAtom('THIS_IS_SOME_OBSCURE_TEXT')
else
begin
ShowMessage('You may execute this program only once
in this current session. If you want to
run this program again, you should
restart Windows or send letter to us
about it. We'll send key to you.');
Close;
end;
end;
-
More for developers
