Prompt Before Compilation - Revision history

Zinthose: /* NSIS Macro */ Cleanup and uncommented verbose lines.

2009-11-10T21:12:18Z

NSIS Macro: Cleanup and uncommented verbose lines.

â† Older revision		Revision as of 21:12, 10 November 2009
Line 11:		Line 11:

	== NSIS Macro ==		== NSIS Macro ==
	~~Save the following VBScript as "MsgBox.vbs" in a location that is listed in the %PATH%.~~
	<highlight-nsis>		<highlight-nsis>
	!define !MsgBox `!insertmacro _!MsgBox`		!define !MsgBox `!insertmacro _!MsgBox`
	!macro _!MsgBox _Message _Caption		!macro _!MsgBox _Message _Caption
	;!verbose push		!verbose push
	;!verbose 0		!verbose 0
	!tempfile MsgBox		!tempfile MsgBox
	!appendfile "${MsgBox}" `WScript.Quit MsgBox(Replace(Replace(Replace("${_Message}","\t",vbTab),"\n",vbLf),"\r",vbCr),289,"${_Caption}")`		!appendfile "${MsgBox}" `WScript.Quit MsgBox(Replace(Replace(Replace("${_Message}","\t",vbTab),"\n",vbLf),"\r",vbCr),289,"${_Caption}")`
Line 22:		Line 21:
	!delfile "${MsgBox}"		!delfile "${MsgBox}"
	!undef MsgBox		!undef MsgBox
	;!verbose pop		!verbose pop
	!macroend		!macroend
	</highlight-nsis>		</highlight-nsis>

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

Zinthose: Rewrite as macro and to make it self contained.. no longer requires external vbscript file.

2009-11-10T20:16:49Z

Rewrite as macro and to make it self contained.. no longer requires external vbscript file.

â† Older revision		Revision as of 20:16, 10 November 2009
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%.		Save the following VBScript as "MsgBox.vbs" in a location that is listed in the %PATH%.
	<highlight-vb>		<highlight-nsis>
	~~'vbscript~~		!define !MsgBox `!insertmacro _!MsgBox`
	'MsgBox~~.vbs~~		!macro _!MsgBox _Message _Caption
			;!verbose push
	~~Dim Caption 'As String~~		;!verbose 0
	~~Dim Prompt 'As String~~		!tempfile MsgBox
			!appendfile "${MsgBox}" `WScript.Quit MsgBox(Replace(Replace(Replace("${_Message}","\t",vbTab),"\n",vbLf),"\r",vbCr),289,"${_Caption}")`
	~~'** Defaults~~		!system `wscript.exe "${MsgBox}" //E:vbscript` = 1
	~~Caption =~~ "~~What do you want to do?"~~		!delfile "${MsgBox}"
	~~Prompt = "Proceed?~~"		!undef MsgBox
			;!verbose pop
	~~'** Apply CmdLine Arguments~~		!macroend
	If WScript.~~Arguments.Count => 1 Then _~~		</highlight-nsis>
	~~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]]

Zinthose: Initial Release

2009-11-09T18:26:24Z

Initial Release

New page

{{PageAuthor|Zinthose}}

== 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.

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

== VB Script ==
Save the following VBScript as "MsgBox.vbs" in a location that is listed in the %PATH%.
<highlight-vb>
'vbscript
'MsgBox.vbs

Dim Caption 'As String
Dim Prompt 'As String

'** Defaults
Caption = "What do you want to do?"
Prompt = "Proceed?"

'** Apply CmdLine Arguments
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]]