This here little piece of code GOT to be the quickest way to create a true shareware nag,
that gives people the full functionality of the program, yet nags people big time untill they register (cruel, huh :) )
This shareware nag makes sure that the user can only execute your program once every Windows session.
In your FormShow event:
// From: Karsten Heitmann
procedure TForm1.FormShow (Sender: TObject);
var
atom : integer;
CRLF : string;
begin
if GlobalFindAtom ('THISISSOMEOBSCUREETEXT') = 0 then
atom := GlobalAddAtom ('THISISSOMEOBSCUREETEXT')
else
begin
CRLF := #10#13;
ShowMessage ('This version may only be run once every Windows Session.'
+ CRLF +
'To run this application again, you need to restart Windows,'
+ CRLF + 'or purchase a license.!!');
Close
end
end;