Prompt Before Compilation: Difference between revisions

From NSIS Wiki
Jump to navigationJump to search
(Initial Release)
 
m (→‎NSIS Macro: Cleanup and uncommented verbose lines.)
 
(One intermediate revision by the same user not shown)
Line 2: Line 2:


== Description ==
== Description ==
With a simple VBScript dropped on the system path, you can allow your NSIS scripts to prompt prior to compilation.  I've found this useful to alert me to packages that require a significant amount of time to compile.
Using a dynamic vbscript created at compile time, you can allow your NSIS scripts to prompt prior to compilation.  I've found this useful to alert me to packages that require a significant amount of time to compile.


== Usage ==
== Usage ==
<highlight-nsis>
<highlight-nsis>
!system 'MsgBox.vbs "Package will take a long time to compile.\n\n \
${!MsgBox} "WARNING: Package will take a long time to compile.\n\
     Average Compilation Time: 54 min 35 sec\n\n\tContinue?" "NSIS Compilation"' = 1
     Average Compilation Time: 54 min 35 sec" "NSIS Compilation"
</highlight-nsis>
</highlight-nsis>


== VB Script ==
== NSIS Macro ==
Save the following VBScript as "MsgBox.vbs" in a location that is listed in the %PATH%.
<highlight-nsis>
<highlight-vb>
!define !MsgBox `!insertmacro _!MsgBox`
'vbscript
!macro _!MsgBox _Message _Caption
'MsgBox.vbs
    !verbose push
 
    !verbose 0
Dim Caption 'As String
    !tempfile MsgBox
Dim Prompt 'As String
    !appendfile "${MsgBox}" `WScript.Quit MsgBox(Replace(Replace(Replace("${_Message}","\t",vbTab),"\n",vbLf),"\r",vbCr),289,"${_Caption}")`
 
    !system `wscript.exe "${MsgBox}" //E:vbscript` = 1
'** Defaults
    !delfile "${MsgBox}"
Caption = "What do you want to do?"
    !undef MsgBox
Prompt = "Proceed?"
    !verbose pop
 
!macroend
'** Apply CmdLine Arguments
</highlight-nsis>
If WScript.Arguments.Count => 1 Then _
Prompt = WScript.Arguments.Item(0)
 
If WScript.Arguments.Count => 2 Then _
Caption = WScript.Arguments.Item(1)
 
'** Allow Meta characters
Prompt = Replace(Prompt, "\r", vbCr)
Prompt = Replace(Prompt, "\n", vbLf)
Prompt = Replace(Prompt, "\t", vbTab)
 
'** Display Prompt
WScript.Quit MsgBox(Prompt, 289, Caption)
</highlight-vb>


[[Category:Compile-Time Macros]]
[[Category:Compile-Time Macros]]

Latest revision as of 21:12, 10 November 2009

Author: Zinthose (talk, contrib)


Description

Using a dynamic vbscript created at compile time, you can allow your NSIS scripts to prompt prior to compilation. I've found this useful to alert me to packages that require a significant amount of time to compile.

Usage

${!MsgBox} "WARNING: Package will take a long time to compile.\n\
    Average Compilation Time: 54 min 35 sec" "NSIS Compilation"

NSIS Macro

!define !MsgBox `!insertmacro _!MsgBox`
!macro _!MsgBox _Message _Caption
    !verbose push
    !verbose 0
    !tempfile MsgBox
    !appendfile "${MsgBox}" `WScript.Quit MsgBox(Replace(Replace(Replace("${_Message}","\t",vbTab),"\n",vbLf),"\r",vbCr),289,"${_Caption}")`
    !system `wscript.exe "${MsgBox}" //E:vbscript` = 1
    !delfile "${MsgBox}"
    !undef MsgBox
    !verbose pop
!macroend
Retrieved from "https://nsis.sourceforge.io/mediawiki/index.php?title=Prompt_Before_Compilation&oldid=17844"