Inject MSI Property at Compile-Time - Revision history

Zinthose: Undo revision 19493 by Zinthose (talk)

2011-02-25T19:22:28Z

Undo revision 19493 by Zinthose (talk)

Show changes

Zinthose: Initial Release

2011-02-25T19:20:57Z

Initial Release

Show changes

Zinthose: /* Macro */ Removed the notpad call that was left in when I was testing.

2011-02-23T21:00:16Z

Macro: Removed the notpad call that was left in when I was testing.

â† Older revision		Revision as of 21:00, 23 February 2011
Line 13:		Line 13:

	!define DisplayName `${SomePackage.ProductName} v${SomePackage.ProductVersion}`		!define DisplayName `${SomePackage.ProductName} v${SomePackage.ProductVersion}`
			OutFile Test.exe
	Name `${DisplayName} Special Build`		Name `${DisplayName} Special Build`
			Section
			SectionEnd
	********************/		********************/
	!verbose push		!verbose push
Line 38:		Line 41:
	!system `WScript.exe "${MSIPropertyGet_VBScript}" //B //E:VBSCRIPT //T:30 "${MSIPropertyGet_Result}" "${__DefineToCreate}" "${_MSIFilePath}" "${_PropertyToRead}"` = 0		!system `WScript.exe "${MSIPropertyGet_VBScript}" //B //E:VBSCRIPT //T:30 "${MSIPropertyGet_Result}" "${__DefineToCreate}" "${_MSIFilePath}" "${_PropertyToRead}"` = 0
	!include "${MSIPropertyGet_Result}"		!include "${MSIPropertyGet_Result}"
	~~!system `Notepad "${MSIPropertyGet_Result}"`~~
	!delfile `${MSIPropertyGet_VBScript}`		!delfile `${MSIPropertyGet_VBScript}`
	!delfile `${MSIPropertyGet_Result}`		!delfile `${MSIPropertyGet_Result}`

Zinthose: /* Macro */ Changed Macro name from !MSIProperty to MSIPropertyGet

2011-02-23T20:52:29Z

Macro: Changed Macro name from !MSIProperty to MSIPropertyGet

â† Older revision		Revision as of 20:52, 23 February 2011
Line 5:		Line 5:
	== Macro ==		== Macro ==
	<highlight-nsis>/********************		<highlight-nsis>/********************
	!~~MSIProperty~~		!MSIPropertyGet
	This macro provides a compile-time ability to inject Microsoft Installer Database file properties at compile time.		This macro provides a compile-time ability to inject Microsoft Installer Database file properties at compile time.

	Example:		Example:
	${!~~MSIProperty~~} "SomePackage.ProductName" "SomePackage.msi" "ProductName"		${!MSIPropertyGet} "SomePackage.ProductName" "SomePackage.msi" "ProductName"
	${!~~MSIProperty~~} "SomePackage.ProductVersion" "SomePackage.msi" "ProductVersion"		${!MSIPropertyGet} "SomePackage.ProductVersion" "SomePackage.msi" "ProductVersion"

	!define DisplayName `${SomePackage.ProductName} v${SomePackage.ProductVersion}`		!define DisplayName `${SomePackage.ProductName} v${SomePackage.ProductVersion}`
Line 17:		Line 17:
	!verbose push		!verbose push
	!verbose 0		!verbose 0
	!define !~~MSIProperty~~ `!insertmacro _!~~MSIProperty~~`		!define !MSIPropertyGet `!insertmacro _!MSIPropertyGet`
	!macro _!~~MSIProperty~~ _DefineToCreate _MSIFilePath _PropertyToRead		!macro _!MSIPropertyGet _DefineToCreate _MSIFilePath _PropertyToRead
	!verbose Push		!verbose Push
	!verbose 0		!verbose 0
Line 28:		Line 28:
	!ifdef `${__DefineToCreate}`		!ifdef `${__DefineToCreate}`
	!verbose 1		!verbose 1
	!error "!~~MSIProperty~~: Value previously defined! [${__DefineToCreate}=${${__DefineToCreate}}]"		!error "!MSIPropertyGet: Value previously defined! [${__DefineToCreate}=${${__DefineToCreate}}]"
	!else		!else
	!tempfile ~~MSIProperty_VBScript~~		!tempfile MSIPropertyGet_VBScript
	!appendfile `${~~MSIProperty_VBScript~~}` `Set A=WScript.Arguments:Set B=CreateObject("WindowsInstaller.Installer").OpenDatabase(A(2),0)`		!appendfile `${MSIPropertyGet_VBScript}` `Set A=WScript.Arguments:Set B=CreateObject("WindowsInstaller.Installer").OpenDatabase(A(2),0)`
	!appendfile `${~~MSIProperty_VBScript~~}` `.OpenView("SELECT Value FROM Property WHERE Property='"&A(3)&"'"):B.Execute:Set C=CreateObjec`		!appendfile `${MSIPropertyGet_VBScript}` `.OpenView("SELECT Value FROM Property WHERE Property='"&A(3)&"'"):B.Execute:Set C=CreateObjec`
	!appendfile `${~~MSIProperty_VBScript~~}` `t("Scripting.Filesystemobject"):Set D=C.OpenTextFile(A(0),2,1):D.WriteLine "!define $\`"&A(1)`		!appendfile `${MSIPropertyGet_VBScript}` `t("Scripting.Filesystemobject"):Set D=C.OpenTextFile(A(0),2,1):D.WriteLine "!define $\`"&A(1)`
	!appendfile `${~~MSIProperty_VBScript~~}` `&"$\` $\`"&B.Fetch.StringData(1)&"$\`":D.Close`		!appendfile `${MSIPropertyGet_VBScript}` `&"$\` $\`"&B.Fetch.StringData(1)&"$\`":D.Close`
	!tempfile ~~MSIProperty_Result~~		!tempfile MSIPropertyGet_Result
	!system `WScript.exe "${~~MSIProperty_VBScript~~}" //B //E:VBSCRIPT //T:30 "${~~MSIProperty_Result~~}" "${__DefineToCreate}" "${_MSIFilePath}" "${_PropertyToRead}"` = 0		!system `WScript.exe "${MSIPropertyGet_VBScript}" //B //E:VBSCRIPT //T:30 "${MSIPropertyGet_Result}" "${__DefineToCreate}" "${_MSIFilePath}" "${_PropertyToRead}"` = 0
	!include "${~~MSIProperty_Result~~}"		!include "${MSIPropertyGet_Result}"
	!system `Notepad "${~~MSIProperty_Result~~}"`		!system `Notepad "${MSIPropertyGet_Result}"`
	!delfile `${~~MSIProperty_VBScript~~}`		!delfile `${MSIPropertyGet_VBScript}`
	!delfile `${~~MSIProperty_Result~~}`		!delfile `${MSIPropertyGet_Result}`
	!undef ~~MSIProperty_VBScript~~		!undef MSIPropertyGet_VBScript
	!undef ~~MSIProperty_Result~~		!undef MSIPropertyGet_Result
	!ifndef `${__DefineToCreate}`		!ifndef `${__DefineToCreate}`
	!error "!~~MSIProperty~~: Value was not defined! [${__DefineToCreate}] Ensure the MSI file exists and is not locked from reading"		!error "!MSIPropertyGet: Value was not defined! [${__DefineToCreate}] Ensure the MSI file exists and is not locked from reading"
	!else if `${${__DefineToCreate}}` == ``		!else if `${${__DefineToCreate}}` == ``
	!warning "!~~MSIProperty~~: Value is a zero length string! [${__DefineToCreate}=${${__DefineToCreate}}]"		!warning "!MSIPropertyGet: Value is a zero length string! [${__DefineToCreate}=${${__DefineToCreate}}]"
	!endif		!endif
	!endif		!endif

Zinthose: Initial Release

2011-02-23T20:42:55Z

Initial Release

New page

{{PageAuthor|Zinthose}}
== About ==
This macro provides a compile-time ability to inject Microsoft Installer Database file properties at compile time. It uses a dynamically created VBScript to open the MSI file and read the property then creates the requested property value.

== Macro ==
<highlight-nsis>/********************
!MSIProperty
This macro provides a compile-time ability to inject Microsoft Installer Database file properties at compile time.

Example:
${!MSIProperty} "SomePackage.ProductName" "SomePackage.msi" "ProductName"
${!MSIProperty} "SomePackage.ProductVersion" "SomePackage.msi" "ProductVersion"

!define DisplayName `${SomePackage.ProductName} v${SomePackage.ProductVersion}`
Name `${DisplayName} Special Build`
********************/
!verbose push
!verbose 0
!define !MSIProperty `!insertmacro _!MSIProperty`
!macro _!MSIProperty _DefineToCreate _MSIFilePath _PropertyToRead
!verbose Push
!verbose 0
!if `${_DefineToCreate}` == ``
!define __DefineToCreate `${_PropertyToRead}`
!else
!define __DefineToCreate `${_DefineToCreate}`
!endif
!ifdef `${__DefineToCreate}`
!verbose 1
!error "!MSIProperty: Value previously defined! [${__DefineToCreate}=${${__DefineToCreate}}]"
!else
!tempfile MSIProperty_VBScript
!appendfile `${MSIProperty_VBScript}` `Set A=WScript.Arguments:Set B=CreateObject("WindowsInstaller.Installer").OpenDatabase(A(2),0)`
!appendfile `${MSIProperty_VBScript}` `.OpenView("SELECT Value FROM Property WHERE Property='"&A(3)&"'"):B.Execute:Set C=CreateObjec`
!appendfile `${MSIProperty_VBScript}` `t("Scripting.Filesystemobject"):Set D=C.OpenTextFile(A(0),2,1):D.WriteLine "!define $\`"&A(1)`
!appendfile `${MSIProperty_VBScript}` `&"$\` $\`"&B.Fetch.StringData(1)&"$\`":D.Close`
!tempfile MSIProperty_Result
!system `WScript.exe "${MSIProperty_VBScript}" //B //E:VBSCRIPT //T:30 "${MSIProperty_Result}" "${__DefineToCreate}" "${_MSIFilePath}" "${_PropertyToRead}"` = 0
!include "${MSIProperty_Result}"
!system `Notepad "${MSIProperty_Result}"`
!delfile `${MSIProperty_VBScript}`
!delfile `${MSIProperty_Result}`
!undef MSIProperty_VBScript
!undef MSIProperty_Result
!ifndef `${__DefineToCreate}`
!error "!MSIProperty: Value was not defined! [${__DefineToCreate}] Ensure the MSI file exists and is not locked from reading"
!else if `${${__DefineToCreate}}` == ``
!warning "!MSIProperty: Value is a zero length string! [${__DefineToCreate}=${${__DefineToCreate}}]"
!endif
!endif
!undef __DefineToCreate
!verbose pop
!macroend
!verbose pop</highlight-nsis>
[[Category:Compile-Time Macros]]