In your FormShow event:<\/p>\n
[code lang=”delphi”]procedure TForm1.FormShow(Sender : TObject);
\nvar atom : integer;
\n CRLF : string;
\nbegin
\n if
\n GlobalFindAtom(‘THIS_IS_SOME_OBSCUREE_TEXT’) = 0 then
\n atom := GlobalAddAtom(‘THIS_IS_SOME_OBSCUREE_TEXT’)
\n else
\n begin
\n CRLF := #10 + #13;
\n ShowMessage(‘This version may only be run once for every Windows Session.’ + CRLF +
\n ‘To run this program again, you need to restart Windows, or better yet:’ + CRLF +
\n ‘REGISTER !!’);
\n Close;
\n end;
\nend;
\n{ The advantages here are that you leave all the functionallity at the users disposal, but
\nthe moment he closes the program, its bootie-time, folks ! All you got to do is write
\nsome obscure text and save it in the Windows global atom table. }
\n[\/code]<\/p>\n
[tags]Delphi, Shareware[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
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…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,120],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3o","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/210"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=210"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/210\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=210"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=210"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=210"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}