Saving Registration Code

I have always had problems saving my product registration code in the correct location on Windows. I have a customer who says he has to register the program every time he launches which would indicate I am not saving to an accessable location. The customer is on Windows 11 (I only have access to Windows 10) he installs as an admin user for all accounts.

• Is this the right location?
• Is there a difference between W10 and W11 that I have to cater for, it looked to be the same location in the documentation.

I currently do the following which seemed to be working on Mac and Windows 10.

Dim tout as textoutputstream
Dim f as folderItem

f = SpecialFolder.Preferences.child("ProductRegoFileName")

if f <> Nil then
  'tout = f.CreateTextFile
  tout = TextOutputStream.Create(f)
  if tout <> nil then
    
    tout.writeline username
    tout.writeline company
    var ob as string = Bans
    dim encryptserial as string =EncryptQuickrc4v6(serialnum,ob)
    tout.WriteLine encryptserial
    
    'tout.writeline serialnum
    tout.writeline str(site)
    
    //tout.writeline settings
    tout.close
  end if
end if

22 posts - 7 participants

Read full topic