Applications, Games, Tools, User libs and useful stuff coded in PureBasic
oryaaaaa
Addict
Posts: 825 Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN
Post
by oryaaaaa » Fri Jun 30, 2006 9:41 pm
Request
When the setup is launched, can you do the OGG file in PLAY?
Thanks
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Fri Jun 30, 2006 9:45 pm
oryaaaaa wrote: When the setup is launched, can you do the OGG file in PLAY?
Which 'OGG' file? What do you meen with 'PLAY'
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Fri Jun 30, 2006 9:48 pm
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.
oryaaaaa
Addict
Posts: 825 Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN
Post
by oryaaaaa » Fri Jun 30, 2006 9:54 pm
>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.
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Fri Jun 30, 2006 11:02 pm
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.
oryaaaaa
Addict
Posts: 825 Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN
Post
by oryaaaaa » Sat Jul 01, 2006 4:27 am
Thanks.
BUG
'*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.
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Sat Jul 01, 2006 8:36 am
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.
oryaaaaa
Addict
Posts: 825 Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN
Post
by oryaaaaa » Sat Jul 01, 2006 8:57 am
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.
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Sat Jul 01, 2006 11:59 am
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.
oryaaaaa
Addict
Posts: 825 Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN
Post
by oryaaaaa » Sun Jul 02, 2006 6:39 am
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.
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Sun Jul 02, 2006 12:02 pm
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
GeoTrail
Addict
Posts: 2794 Joined: Fri Feb 13, 2004 12:45 am
Location: Bergen, Norway
Contact:
Post
by GeoTrail » Sun Jul 02, 2006 12:05 pm
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:
This is to show that the path I've entered in the directory field is correct:
And here's the error message I keep getting:
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!
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Sun Jul 02, 2006 12:30 pm
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'.)
GeoTrail
Addict
Posts: 2794 Joined: Fri Feb 13, 2004 12:45 am
Location: Bergen, Norway
Contact:
Post
by GeoTrail » Sun Jul 02, 2006 12:39 pm
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!
Thorsten1867
Addict
Posts: 1372 Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany
Post
by Thorsten1867 » Tue Jul 04, 2006 6:22 pm
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)