Order and save right now!
20% off with the dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!
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