Nasty nag crap

In your FormShow event:

[code lang=”delphi”]procedure TForm1.FormShow(Sender : TObject);
var atom : integer;
CRLF : string;
begin
if
GlobalFindAtom(‘THIS_IS_SOME_OBSCUREE_TEXT’) = 0 then
atom := GlobalAddAtom(‘THIS_IS_SOME_OBSCUREE_TEXT’)
else
begin
CRLF := #10 + #13;
ShowMessage(‘This version may only be run once for every Windows Session.’ + CRLF +
‘To run this program again, you need to restart Windows, or better yet:’ + CRLF +
‘REGISTER !!’);
Close;
end;
end;
{ The advantages here are that you leave all the functionallity at the users disposal, but
the moment he closes the program, its bootie-time, folks ! All you got to do is write
some obscure text and save it in the Windows global atom table. }
[/code]

[tags]Delphi, Shareware[/tags]