Ultimate Pack  hot! Image Editor  new! Runtime Fusion Form Designer Object Inspector Print Suite Pro Commented Image Delphi Toys WinDowse Delphi Bonus TMS Scripter Studio Form Designer VB Form Designer .NET ...get more... for Delphi.NET, C#, VB.NET for Delphi VCL, BCB 3-6

	WinAPI Online Unix Manual Pages MegaDetailed.NET in3steps.com cdtrrracks.com new!   greatis.blogspot.com

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;

For more

Win32 Programmer's Reference

Download source