Application scripts

#1 pscEx

Platinum Member

Team Reboot
12707 posts

Location:Korschenbroich, Germany
Interests:What somebody else cannot do.
European Union

Posted 04 November 2006 - 11:27 AM

Let me use CDWriter.Script as sample. Parts of it's code is:

&#91;variables&#93;

%ProgramName%=CD Writer - Burn Cd and Dvd

%ProgramFolder%=sCDWriter

%ProgramExe%=x&#58;\programs\%ProgramFolder%\scdwriter.exe

%ProjectInfo%=%ProjectDir%\ProjectInfo.ini



&#91;process&#93;

echo,&#34;Making new directories..&#34;

DirMake,&#34;%targetdir%\Programs&#34;

DirMake,&#34;%targetdir%\Programs\%ProgramFolder%&#34;

echo,&#34;Extracting %ProgramName%..&#34;

ExtractAllFiles,&#34;%ScriptFile%&#34;,&#34;Internal-files&#34;,&#34;%targetdir%\Programs\%ProgramFolder%&#34;

echo,&#34;Adding item to xoblite menu..&#34;

If,ExistFile,&#34;%targetdir%\Programs\XobLite\menu.rc&#34;,TxTAddLine,&#34;%targetdir%\Programs\XobLite\menu.rc&#34;,&#34;&#91;exec&#93; &#40;%ProgramName%&#41;	 {%ProgramExe%}&#34;,&#34;append&#34;,&#34;3&#34;

echo,&#34;Adding item to shortcut.inf menu..&#34;

If,NotExistFile,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,FileCreateBlank,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;

TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,!PE\Programs\scdwriter\scdwriter.exe,!DE\Small CD-Writer&#34;,&#34;Append&#34;

TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,!PE\Programs\scdwriter\scdwriter.exe,!SM\Small CD-Writer&#34;,&#34;Append&#34;

Run,%BaseDir%\Archive\Build\ScriptLog.script,Process-log

As to be seen the target programs folder name is hardcoded.
That may conflict with other scripts using localized names.

Let's do this:

1st create a new variable %TargetProg% and fill it with the value of the localized program folder name.

&#91;Variables&#93;

...

%TargetProg%=

...

&#91;Process&#93;

IniRead,&#34;%ProjectInfo%&#34;,&#34;Paths&#34;,&#34;Application_Data&#34;,&#34;%TargetProg%&#34;

...

2nd replace the hardcoded '\programs' by '\%TargetProg%'

&#91;process&#93;

...

If,NotExistDir,&#34;%targetdir%\Programs&#34;,DirMake,&#34;%targetdir%\%TargetProg%&#34;

DirMake,&#34;%targetdir%\%TargetProg%\%ProgramFolder%&#34;

...

ExtractAllFiles,&#34;%ScriptFile%&#34;,&#34;Internal-files&#34;,&#34;%targetdir%\%TargetProg%\%ProgramFolder%&#34;

...

If,ExistFile,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,TxTAddLine,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,&#34;&#91;exec&#93; &#40;%ProgramName%&#41;	 {%ProgramExe%}&#34;,&#34;append&#34;,&#34;3&#34;

...

In this special case there is a 'addon' to the replacement: A predefined variable:

&#91;variables&#93;

...

%ProgramExe%=x&#58;\programs\%ProgramFolder%\scdwriter.exe

...



&#91;process&#93;

...

If,ExistFile,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,TxTAddLine,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,&#34;&#91;exec&#93; &#40;%ProgramName%&#41;	 {&#91;b&#93;%ProgramExe%&#91;/b&#93;}&#34;,&#34;append&#34;,&#34;3&#34;

...

Here we have to set the variable rather then to predefine (the x: better should be replaced by %SystemDrive%)

&#91;variables&#93;

...

%ProgramExe%=

...



&#91;process&#93;

...

Set,%ProgramExe%,&#34;#$pSystemDrive#$p&#58;\%TargetProg%\%ProgramFolder%\scdwriter.exe&#34;

If,ExistFile,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,TxTAddLine,&#34;%targetdir%\%TargetProg%\XobLite\menu.rc&#34;,&#34;&#91;exec&#93; &#40;%ProgramName%&#41;	 {%ProgramExe%}&#34;,&#34;append&#34;,&#34;3&#34;

...

3rd define shortcuts:

Add-Shortcut,&#34;DE&#34;,&#34;%ProgramExe%&#34;

Add-Shortcut,&#34;SM&#34;,&#34;%ProgramExe%&#34;

Peter

#2 pedrole15

Silver Member

.script developer
731 posts

France

Posted 15 November 2006 - 08:23 PM

I want to add support for BuilModel in MakeScript
The example you give here use the old shortcut not BuildModel
So look at this script build by MakeScript if I'm right in translation ?

&#91;Variables&#93;

// %ProgramsDrive%=X&#58;\Programs

// %ProgDir%=%TargetDir%\Programs

%ShC%=#$pSystemRoot#$p

%SpCar%=#$

%ProgramMenu%=Irfanview



&#91;Set-Variables&#93;

Iniread,&#34;%ProjectInfo%&#34;,&#34;Paths&#34;,&#34;Program_Files&#34;,%Program_Files% 

Set,&#34;%ProgramsDrive%&#34;,&#34;x&#58;\%Program_Files%&#34;

Set,&#34;%ProgDir%&#34;,&#34;%TargetDir%\%Program_Files%&#34;

Read folderName of Program Files from ProjectInfo
I'm not sure that this work , can't set 1 variable with 2 variables

&#91;Set-CD-Variables&#93;

Set,&#34;%ProgDir%&#34;,&#34;%BaseDir%\CDPrograms\Programs&#34;

Set,&#34;%ProgramsDrive%&#34;,&#34;%CDDrive%\Programs&#34;

Set,&#34;%ShC%&#34;,&#34;!PS&#34;

The option Run from CD will not work with BuilModel
So this section must be deleted
or if you find a way to make it work ?

&#91;ShorcutDesktop&#93;

//TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,%ShC%\Programs\IrfanView\i_view32.exe,!DE\Irfanview&#34;,&#34;Append&#34;

Run,%BuildModelScript%,Add-Shortcut,&#34;DE&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;%ProgramMenu%&#34;



&#91;ShorcutStart&#93;

If,%pCheckBox6%,Equal,True,Run,%ScriptFile%,StartFolder

//TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,%ShC%\Programs\IrfanView\i_view32.exe,!SM\%ProgramMenu%&#34;,&#34;Append&#34;

Run,%BuildModelScript%,Add-Shortcut,&#34;SM&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;%ProgramMenu%&#34;



&#91;ShorcutQL&#93;

//TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,%ShC%\Programs\IrfanView\i_view32.exe,!QL\Irfanview&#34;,&#34;Append&#34;

Run,%BuildModelScript%,Add-Shortcut,&#34;QL&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;%ProgramMenu%&#34;



&#91;ShorcutST&#93;

//TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;1,%ShC%\Programs\IrfanView\i_view32.exe,!ST\Irfanview&#34;,&#34;Append&#34;

Run,%BuildModelScript%,Add-Shortcut,&#34;ST&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;%ProgramMenu%&#34;

I hope it's right like this ?

&#91;StartFolder&#93;

Set,&#34;%ProgramMenu%&#34;,&#34;%pTextBox2%\Irfanview&#34;

TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;2,!SM\%pTextBox2%&#34;,&#34;Append&#34;

This is for create a folder in the StartMenu .
I don't know how to make this with BuilModel ?

Pedro

#3 pscEx

Platinum Member

Team Reboot
12707 posts

Location:Korschenbroich, Germany
Interests:What somebody else cannot do.
European Union

Posted 16 November 2006 - 08:07 AM

I want to add support for BuilModel in MakeScript
The example you give here use the old shortcut not BuildModel
So look at this script build by MakeScript if I'm right in translation ?

&#91;Set-Variables&#93;

Iniread,&#34;%ProjectInfo%&#34;,&#34;Paths&#34;,&#34;Program_Files&#34;,%Program_Files% 

Set,&#34;%ProgramsDrive%&#34;,&#34;x&#58;\%Program_Files%&#34;

Set,&#34;%ProgDir%&#34;,&#34;%TargetDir%\%Program_Files%&#34;

The way is correct.
But I strictly recommand not to use the hardcoded X:
Use instead of that #$pSystemDrive#$p which is decoded at run time.

Additionally:
This code is inside the makescript script.
You have to write the same functionality into the generated script.
That will also make the 'run from CD' option usable.

Run,%BuildModelScript%,Add-Shortcut,&#34;ST&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;%ProgramMenu%&#34;

That would bring %Programmenu% as visible title of the shortcut.
Should be

Run,%BuildModelScript%,Add-Shortcut,&#34;ST&#34;,&#34;%ShC%\%Program_Files%\IrfanView\i_view32.exe&#34;,&#34;IrfanView&#34;

&#91;StartFolder&#93;

Set,&#34;%ProgramMenu%&#34;,&#34;%pTextBox2%\Irfanview&#34;

TXTAddLine,&#34;%TargetDir%\i386\system32\shortcut.inf&#34;,&#34;2,!SM\%pTextBox2%&#34;,&#34;Append&#34;

This is for create a folder in the StartMenu .
I don't know how to make this with BuilModel ?

Iniread,&#34;%ProjectInfo%&#34;,&#34;Paths&#34;,&#34;Startmenu_Programs&#34;,%Startmenu% 

DirMake,&#34;%Startmenu%\IrfanView&#34;

Peter

#4 sepa

Members
6 posts

Posted 01 February 2007 - 11:42 AM

Iniread,"%ProjectInfo%","Paths","Startmenu_Programs",%Startmenu%
DirMake,"%Startmenu%\IrfanView"

wrong Dir for dirmake
in 067 need use

DirMake,&#34;%TargetDir%\%Startmenu%\IrfanView&#34;

#1 pscEx

#2 pedrole15

#3 pscEx

#4 sepa

1 user(s) are reading this topic

Sign In