• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 244
  • Last Modified:

Shareware idea?

I am trying to create a programme where a message box appears asking to register the software and when a correct code is then input this box doesn't appear again. I can do this for the first time the programme is run, but then on subsequent start-ups the box reappears asking for user input.
Is there any way that with correct user input the message box is destroyed and doesn't appear again (even after Windows is restarted)?
(A shareware sort of idea I suppose).
Chris

PS
Sorry for low points but I'm broke.
0
xpher
Asked:
xpher
  • 4
  • 3
  • 3
1 Solution
 
jecksomCommented:
hi xpher!

why not not store user input (crypted or not) into regestry ? something like :

\\HKEY_CURRENT_USER\Software\<your_prog_name\key = "passed".
So you can check , if current user already passed first time dialog.

Jecksom

0
 
jecksomCommented:
hi xpher!

why not to store user input (crypted or not) into regestry ? something like :

\\HKEY_CURRENT_USER\Software\<your_prog_name\key = "passed".
So you can check , if current user already passed first time dialog.

Jecksom

0
 
xpherAuthor Commented:
Hi jecksom

I'm a bit of a novice to this, I see sort of what you mean but don't know how to implement it.

Appreciate a little more help.

Thanks
Chris :)
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
jecksomCommented:
Hi xpher !

here is example , run program twice :
procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;
begin
Reg := TRegistry.Create;
try
  with Reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\xpher', True) then
    if not valueexists('passed') then
    begin
    writebool('passed',true);
    showmessage('First time');
    closekey;
    end;
  end;
finally
  Reg.Free;
end;
  end;

Don't forget to check Your values in 'regedit' then you trying to reinitialize program to
first start , just delete 'xper\' key !

Best Regards,
Jecksom

0
 
viktornetCommented:
These registry stuff is very easy to crakc y'all B-)
0
 
viktornetCommented:
i mean crack P-)
0
 
xpherAuthor Commented:
To jecksom
Sorry for delay in reply. Took me a little time to adapt and understand. But works vry well. I've just got to try and learn how to use encryption now.

Thanks
Chris :))

viktornet
As we say very droll. But nice to know you are still there.
0
 
viktornetCommented:
Hello again ya B-)

Just gettin' jiggy wit it P-)
0
 
xpherAuthor Commented:
viktornet
what the hell do those emoticons mean?

cheers
Chris
0
 
viktornetCommented:
That's a song of Will Smith if you know who that is... "Getting Jiggy With It" is the name of the song... I'm only saying that I just surf through the questions sometimes when I have some time, and maybe answer the question or leave for someone else to answer.. B-)

Cheers,
Viktor
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now