PB EasySetup - Setup maker for your program

[chen]

User registry entries will be deleted, but there are some EasySetup entries to check, whether a update is installed.

Code: Select all

Registry: HKEY_CURRENT_USER\Software\EasySetup\{GUID} 
Schlüssel: 'InstallDir'

I tested installing my app in my PC, and uninstalling it. All the entries in
registry are gone.... there is no track, inclusive I created the GUID and
checked the entry when installed the software, this entry is deleted too..

I going to try next option...

[Thorsten1867]

I forgott. The EasySetup will delete its registry entries, if you use the option 'Delete all files ...', but you can disable this function ('Special Tasks').
The best way, I think, is to use a small program to set the registry entries and shows a requester ("Input serialnumber or use Demo"). That should be easy with PureBasic. You can start this program after installation and it will automatically deleted with all the temporary files, if all is done.

[chen]

I forgott. The EasySetup will delete its registry entries, if you use the option 'Delete all files ...', but you can disable this function ('Special Tasks').

first a suggestion: when 'Delete All files..' is disabled the user at unistall
process see that option, only it can check it... this gives the user some
feeling that garbage is left in her/his system....
I think is better to hide this option and
other options that give a sense of "keeping garbage" in their PCs.... imho.

Back to what Im doing...

I did it and not... it does not work in that way... at least here....

I disabled 'Delete all files...' and it does not matter the uninstall process
delete all files in directory plus all entries in registry......

[Thorsten1867]

Use the program I will add in the next version:

DemoVersion.exe

Code: Select all

;/ *** Demo Version (Homepage) ***
;/ EasySetup - Thorsten Hoeppner (PB 4.00)
;/ ( RegINI User Library by Paul Leischow )

IniFile.s = StringField(GetFilePart(ProgramFilename()),1,".")+".ini" ; Name of the preference file

ProgDir$ = GetPathPart(ProgramFilename()) ; Program directory
If ProgDir$ = #PB_Compiler_Home+"Compilers\" : ProgDir$ = GetCurrentDirectory() : EndIf

OpenPreferences(ProgDir$+IniFile) ;{ Load INI-file
  GUID$ = ReadPreferenceString("GUID", "")
  days.l = ReadPreferenceLong("Days", 30)
ClosePreferences() ;}

Procedure.b SetDemoKey(GUID$, days.l)
  If Not GUID$ : ProcedureReturn #False : EndIf
  Protected SubKey.s, EndDate.l
  EndDate = AddDate(Date(), #PB_Date_Day, days)
  SubKey = "SOFTWARE\Demo\"+GUID$
  SetRegKey(#HKEY_CURRENT_USER, SubKey, "EndDate", Str(EndDate))
  ProcedureReturn #True
EndProcedure

Procedure.b GetDemoKey(GUID$)
  Protected SubKey.s, EndDate.l
  SubKey = "SOFTWARE\Demo\"+GUID$
  EndDate = Val(GetRegKey(#HKEY_CURRENT_USER, SubKey, "EndDate"))
  ProcedureReturn EndDate
EndProcedure

EndDate.l = GetDemoKey(GUID$)
If Not EndDate
  SetDemoKey(GUID$, days)
EndIf

DemoVersion.ini

Code: Select all

; *** Demo Version ***
; EasySetup - Thorsten Hoeppner (PB 4.00)
;
; Registry: HKEY_CURRENT_USER\Software\Demo\{GUID}
;
GUID = 
Days = 

[chen]

Use the program I will add in the next version:
DemoVersion.zip

I can not download the zip..... 530 denied ( I dont have access)

[Thorsten1867]

I can not download the zip..... 530 denied ( I dont have access)

Sorry, it was the ftp-adress and not http.

[Thorsten1867]

New Version 0.7.0
- Update and upload of HTML pages
(Variables: %Version% , %Date% , %SetupSize% , %ZipSize%)
- New additional program: 'ShowHTML.exe' (Show a HTML file after installation)
- New additional program: 'DemoVersion.exe' (Create registry entries for demo version)
- Bugfix installer (change path)
- Window "UserTask" resizeable
- Option "Don't overwrite files with this extension" works now with a ZIP archiv, too
- smaller changes

[chen]

Hi,

I have a little problem uninstalling EasySetUp (to reinstall the new releases )

I receive the message: 'Could not find uninstall.dat' this is the second
or third time it happens......

[Thorsten1867]

It's not necessary to uninstall EasySetup before updating.

I receive the message: 'Could not find uninstall.dat' this is the second
or third time it happens......

- What contains the folder with uninstall.exe (uninstall.dat?)
- Have you moved the folder after installation?
- What happens, if you start uninstalle.exe direct in the folder?

[chen]

It's not necessary to uninstall EasySetup before updating.

I receive the message: 'Could not find uninstall.dat' this is the second
or third time it happens......

- What contains the folder with uninstall.exe (uninstall.dat?)
- Have you moved the folder after installation?
- What happens, if you start uninstalle.exe direct in the folder?

I forced the unistall... and I just read here... then I going to pay attention
next time I uninstall....

question about the new release...

I installed the new version... but I dont see how to get access to create
a demo version.... could you give me a clue


Update....oooh

I think I get it... I need to define a task an call the 'demoVersion'
program... Im going to try and comment you...

[Thorsten1867]

New Version 0.7.1
- Bugfix: Save project (problems with user path)
- Upload HTML pages: Possibility to edit HTML file to insert variables
- Upload HTML pages: Change file with doubleclick

[srod]

Bugfix works well.

Thanks.

[Thorsten1867]

Version 0.7.2
- Update and upload PAD file

[Thorsten1867]

New Version 0.7.3
- Usertask 'Start Program' for uninstaller, too
(only copies file and ini with new name into the source folder)
- Start program after uninstallation started (if 'Uninstall2.exe' exists)
- Start program before 'Uninstall' (if 'Uninstall1.exe' exists)
- Uninstaller: Hide instead of disable for the option "Delete all ...."

[stubbsi]

Is there any chance that you can allow a .txt file to be part of the Program Directory entries in addition to help etc.

And could it also be allowed in User Defined Tasks/Additional Links - this is where I have put them, but by just typing the name of the file, I do not get the .txt icon

Cheers