PB EasySetup - Setup maker for your program

Applications, Games, Tools, User libs and useful stuff coded in PureBasic
User avatar
oryaaaaa
Addict
Addict
Posts: 825
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Post by oryaaaaa »

Request

When the setup is launched, can you do the OGG file in PLAY? :-D

Thanks
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

oryaaaaa wrote:When the setup is launched, can you do the OGG file in PLAY? :-D
Which 'OGG' file? What do you meen with 'PLAY'
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

New Version 0.2.7
- installation of single files in special folders:
%AppData%, %CommonFiles%, %Windows%, %System%, %Fonts%, %QuickLaunch%
Last edited by Thorsten1867 on Sat Jul 01, 2006 12:06 pm, edited 1 time in total.
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
oryaaaaa
Addict
Addict
Posts: 825
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Post by oryaaaaa »

>OGG file

UseOGGSoundDecoder()

PLAY :: PlaySound(#Sound , #LOOP)

I want to sound the techno sound and to press the setup.
AND I make software for the visually handicapped person. It is necessary.
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

oryaaaaa wrote:>OGG file

UseOGGSoundDecoder()

PLAY :: PlaySound(#Sound , #LOOP)
Use 'Additonal User Tasks' - 'Install File'
'*StartSetup*' Select a exe, which will play your OGG file

The installer looks at startup, whether the file exists and run it.
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
oryaaaaa
Addict
Addict
Posts: 825
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Post by oryaaaaa »

Thanks.

BUG :P

'*StartSetup*' Select a exe
StartES.exe is not stop & delete.
When other installations begin, setup execute StartES.exe. (EasySetup)
* StartSetup * must end if the Setup program ends.
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

Oh, it's not a bug. 'StartES.exe' will only be started, what it does, I don't know.

I will take a look to, wheather it's possible to kill 'StartES.exe' before I delete all temp files.
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
oryaaaaa
Addict
Addict
Posts: 825
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Post by oryaaaaa »

It is a problem that Document and Setting/usr/local setting/temp/StartES.exe starts by launching other EasySetup. When you output StartES.exe Please make it to StartES{UniquID}.exe.

Moreover, please add the option to shut the process of '* startup *' if the Setup program ends.
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

Try it (V. 0.2.7b)! I hope it works.

- Start external program at startup
- Kill external program, if you exit and then deletes setup dir.
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
oryaaaaa
Addict
Addict
Posts: 825
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Post by oryaaaaa »

As for the first language choice, I want you to select it automatically by the following code.

Code: Select all

Procedure.s OSlocale()
  localedata.s=Space(256)
  RETlocale= GetLocaleInfo_($400, $1001, localedata, Len(localedata))
  localedata=Left(localedata, RETlocale-1)
  ProcedureReturn localedata
EndProcedure
Japanese
English

It is a manual selection if not corresponding.
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

It's a little bit more difficult:

Code: Select all

Procedure.s CheckLanguage()
  DefLangID.l = GetUserDefaultLangID_() & 511
  lang$ = "english.lng"
  If ExamineDirectory(0, ProgDir$ + "Language", "*.lng")  
    While NextDirectoryEntry(0)
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
        OpenPreferences(ProgDir$ + "Language\" + DirectoryEntryName(0))
        PreferenceGroup("Translation")
          If ReadPreferenceLong("LanguageID",-1) = DefLangID
           lang$ = DirectoryEntryName(0)
          EndIf
        ClosePreferences()
      EndIf
    Wend
    FinishDirectory(0)
  EndIf 
  result = OpenPreferences("EasySetup.ini")
  If Not result : result = CreatePreferences("EasySetup.ini") : EndIf
  WritePreferenceString("language", lang$)
  ClosePreferences() 
  ProcedureReturn lang$
EndProcedure
Version 0.2.9
- automatic setup of EasySetup language
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
GeoTrail
Addict
Addict
Posts: 2794
Joined: Fri Feb 13, 2004 12:45 am
Location: Bergen, Norway
Contact:

Post by GeoTrail »

I tried EasySetup on the latest beta 2 version of Vista with build no 5456 and keep getting this error:

This is what the program looks like with everything filled in:
Image

This is to show that the path I've entered in the directory field is correct:
Image

And here's the error message I keep getting:
Image

Is this a bug in the program? Path setting or is it just me? :?
I Stepped On A Cornflake!!! Now I'm A Cereal Killer!
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

Take a look to panel 'Setup'. I think the name for the program directory (Installation) is missing.

(I correct the translation for panel 'Files' from 'Program Directory' in 'Source Directory'.)
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
User avatar
GeoTrail
Addict
Addict
Posts: 2794
Joined: Fri Feb 13, 2004 12:45 am
Location: Bergen, Norway
Contact:

Post by GeoTrail »

That was strange.
I closed EasySetup and when I opened it again, I select the last project from the file menu, clicked the setup tab and it worked perfectly.

Btw, I found a "bug". Not really a bug, but you should make the program check wether the compiled setup program has the same name and path as any existing files ;) I just overwrote my compiled program. No biggie though ;)
I Stepped On A Cornflake!!! Now I'm A Cereal Killer!
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

GeoTrail wrote:Btw, I found a "bug". Not really a bug, but you should make the program check wether the compiled setup program has the same name and path as any existing files ;) I just overwrote my compiled program. No biggie though ;)
Done! Check wether setup file already exists. (Version 0.2.9c)
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
Post Reply