Code: Select all

'-------------------------OPEN---------------------------------
Dim FSO : Set FSO=CreateObject("Scripting.FileSystemObject")
Dim SDB : Set SDB=CreateObject("SongsDB.SDBApplication")
While Not SDB.isRunning : WScript.Sleep 500 : Wend
'--------------------------------------------------------------

InstallScriptTo "Auto\XXXXXXXXX.vbs", LineBegin, LineEnd ,    _
                                                              _
        "Script Successfully Installed!"                &vbLf&_
        "Please restart MediaMonkey"                    &vbLf&_
        "Other notes to user after install....."

'--------------------------CLOSE-------------------------------
SDB.ShutdownAfterDisconnect=True
Set FSO=Nothing : Set SDB=Nothing : Wscript.Quit
'--------------------------------------------------------------



'This is line 20, and you can paste your script in here and see
'what the end line is to do the InstallScriptTo command options
'
'Like a 100 Line Script would need a command above like
'
'InstallScriptTo "Auto\MyScriptName.vbs", 20, 120, "MessageText"




'%%%%%%%%%%%%%%%%% START OF SCRIPT INSTALLER %%%%%%%%%%%%%%%%%%

Sub InstallScriptTo(ScriptName, LineBegin, LineEnd, Message)

    ScriptName=SDB.ApplicationPath & "Scripts\" & ScriptName

    RenameOldScript(ScriptName)
   
    Set TXT=FSO.OpenTextFile(WScript.ScriptFullName,1)
        STR=TXT.ReadAll
        TXT.Close
        
        LNS=Split(STR,vbNewLine)
   
    Set TXT=FSO.CreateTextFile(ScriptName, True)
            For i=LineBegin-1 To LineEnd-1
        TXT.WriteLine LNS(i)
            Next
        TXT.Close
   
     If FSO.FileExists(ScriptName) And Message<>"none" Then _
            SDB.MessageBox Message , 2, Array(4)
End Sub

Sub RenameOldScript(ScriptName)
    If FSO.FileExists(ScriptName) Then _
       FSO.MoveFile ScriptName, BakFile(ScriptName)
End Sub

Function BakFile(ScriptName)
    Do
        TMP=Left(ScriptName, Len(ScriptName)-3) & "old" & v
        v=v+1
    Loop While FSO.FileExists(TMP)
    BakFile=TMP
End Function

'%%%%%%%%%%%%%%%%%% END OF SCRIPT INSTALLER %%%%%%%%%%%%%%%%%%%

Code: Select all

function MMPath(Default: String): String;
var
  PrevPath : String;
begin
  PrevPath := '';
  RegQueryStringValue( HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MediaMonkey_is1', 'Inno Setup: App Path', PrevPath);
  if FileExists( AddBackslash( PrevPath)+'\MediaMonkey.exe') then
    Result := AddBackslash( PrevPath)
  else
    Result := AddBackslash( ExpandConstant('{pf}'))+'MediaMonkey\';
end;


function InitializeSetup(): Boolean;
var
  MinimumVersion : String;
var
  AppVersion : String;
begin
  Result := false;

  MinimumVersion := '2.5.2.951';

  if GetVersionNumbersString(MMPath('') + 'MediaMonkey.exe', AppVersion) then
    if AppVersion >= MinimumVersion then
      Result := true
    else
      MsgBox('This script requires MediaMonkey version '+MinimumVersion+' or newer.'+#10+'Your version is '+AppVersion+#10+#10+'Please visit www.mediamonkey.com to get the latest version of MediaMonkey.'+#10+'The latest releases (including Betas and RCs) can be downloaded from the forum.', mbError, MB_OK)
  else
    if MsgBox('The current version of MediaMonkey could not be found, so the installed version number could not be determined.'+#10+'It''s possible that the installed version is older than the required version ('+MinimumVersion+') for this script.'+#10+#10+'Do you want to install the script?', mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then
      Result := true;
end;
[_ISTool]
UseAbsolutePaths=true[/color]

Of course, if you use this script, be sure to change all relevant things for your own script (e.g. the AppX settings, the VersionInfoX settings, Source, Output, ...)

BTW: If you create Inno Setups, I strongly recommend the ISTool setup creation GUI (avaliable as package from Inno's website, together with the setup compiler).


Cheers
Steegy