Talk:CreateMutex plug-in - Revision history

Deguix at 20:24, 20 January 2006

2006-01-20T20:24:16Z

â† Older revision		Revision as of 20:24, 20 January 2006
Line 38:		Line 38:
	This code also brings the running instance of the installer to the foreground if starting another instance.		This code also brings the running instance of the installer to the foreground if starting another instance.

	:~~Applied~~ as a link to [[Allow_only_one_installer_instance]] page. -- [[User:Deguix\|deguix]] 12:22, 20 January 2006 (PST)		:Partly applied as a link to [[Allow_only_one_installer_instance]] page, except the extra code about bringing window to foreground - which is not related to mutexes. -- [[User:Deguix\|deguix]] 12:22, 20 January 2006 (PST)

Deguix at 20:22, 20 January 2006

2006-01-20T20:22:44Z

â† Older revision		Revision as of 20:22, 20 January 2006
Line 37:		Line 37:

	This code also brings the running instance of the installer to the foreground if starting another instance.		This code also brings the running instance of the installer to the foreground if starting another instance.

			:Applied as a link to [[Allow_only_one_installer_instance]] page. -- [[User:Deguix\|deguix]] 12:22, 20 January 2006 (PST)

Saivert at 16:16, 20 January 2006

2006-01-20T16:16:07Z

â† Older revision		Revision as of 16:16, 20 January 2006
Line 10:		Line 10:
	; Call the Win32 API to create the mutex. Pass a unique string (ie. product name)		; Call the Win32 API to create the mutex. Pass a unique string (ie. product name)
	System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'		System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'
	Pop $R0 ' Get the mutex handle		Pop $R0 ; Get the mutex handle

	; If the create mutex call returns a NULL handle then we can proceed		; If the create mutex call returns a NULL handle then we can proceed

Saivert at 16:15, 20 January 2006

2006-01-20T16:15:31Z

â† Older revision		Revision as of 16:15, 20 January 2006
Line 8:		Line 8:

	Function .onInit		Function .onInit
	' Call the Win32 API to create the mutex. Pass a unique string (ie. product name)		; Call the Win32 API to create the mutex. Pass a unique string (ie. product name)
	System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'		System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'
	Pop $R0 ' Get the mutex handle		Pop $R0 ' Get the mutex handle

	' If the create mutex call returns a NULL handle then we can proceed		; If the create mutex call returns a NULL handle then we can proceed
	' otherwise we must bring the already running instance to foreground.		; otherwise we must bring the already running instance to foreground.
	StrCmp $R0 0 noprevinst		StrCmp $R0 0 noprevinst
	' Get the window handle from registry		; Get the window handle from registry
	ReadRegStr $R0 HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"		ReadRegStr $R0 HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
	System::Call 'user32::SetForegroundWindow(i $R0) i ?e'		System::Call 'user32::SetForegroundWindow(i $R0) i ?e'
Line 25:		Line 25:

	Function .onGUIInit		Function .onGUIInit
	' Once the installer GUI is up, store the window handle for use later		; Once the installer GUI is up, store the window handle for use later
	WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"		WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"
	FunctionEnd		FunctionEnd

	Function .onGUIEnd		Function .onGUIEnd
	' Remove the registry value once installer quits		; Remove the registry value once installer quits
	DeleteRegValue HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"		DeleteRegValue HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
	FunctionEnd		FunctionEnd

Saivert at 16:14, 20 January 2006

2006-01-20T16:14:58Z

â† Older revision		Revision as of 16:14, 20 January 2006
Line 8:		Line 8:

	Function .onInit		Function .onInit
			' Call the Win32 API to create the mutex. Pass a unique string (ie. product name)
	System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'		System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'
	Pop $R0		Pop $R0 ' Get the mutex handle

			' If the create mutex call returns a NULL handle then we can proceed
			' otherwise we must bring the already running instance to foreground.
	StrCmp $R0 0 noprevinst		StrCmp $R0 0 noprevinst
			' Get the window handle from registry
	ReadRegStr $R0 HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"		ReadRegStr $R0 HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
	System::Call 'user32::SetForegroundWindow(i $R0) i ?e'		System::Call 'user32::SetForegroundWindow(i $R0) i ?e'
Line 21:		Line 25:

	Function .onGUIInit		Function .onGUIInit
			' Once the installer GUI is up, store the window handle for use later
	WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"		WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"
	FunctionEnd		FunctionEnd

	Function .onGUIEnd		Function .onGUIEnd
			' Remove the registry value once installer quits
	DeleteRegValue HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"		DeleteRegValue HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
	~~DeleteRegKey /ifempty HKCU "${PLUGIN_INSTREGKEY}"~~
	FunctionEnd		FunctionEnd

Saivert at 16:11, 20 January 2006

2006-01-20T16:11:03Z

â† Older revision		Revision as of 16:11, 20 January 2006
Line 20:		Line 20:
	FunctionEnd		FunctionEnd

	Function .~~onMyGUIInit~~		Function .onGUIInit
	WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"		WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"
	FunctionEnd		FunctionEnd

Saivert at 16:10, 20 January 2006

2006-01-20T16:10:44Z

â† Older revision		Revision as of 16:10, 20 January 2006
Line 8:		Line 8:

	Function .onInit		Function .onInit
	System::Call 'kernel32::CreateMutexA(i 0, i 0, t "~~NxSBalloonTipPluginSetup~~") i .r1 ?e'		System::Call 'kernel32::CreateMutexA(i 0, i 0, t "AnyUniqueText") i .r1 ?e'
	Pop $R0		Pop $R0

Saivert at 16:09, 20 January 2006

2006-01-20T16:09:53Z

â† Older revision		Revision as of 16:09, 20 January 2006
Line 2:		Line 2:
	Check out this code:		Check out this code:

	<nsis>		<highlight-nsis>

	; Just a key to store a window handle in		; Just a key to store a window handle in
Line 29:		Line 29:
	FunctionEnd		FunctionEnd

	</nsis>		</highlight-nsis>

	This code also brings the running instance of the installer to the foreground if starting another instance.		This code also brings the running instance of the installer to the foreground if starting another instance.

Saivert at 16:08, 20 January 2006

2006-01-20T16:08:58Z

â† Older revision		Revision as of 16:08, 20 January 2006
Line 2:		Line 2:
	Check out this code:		Check out this code:

	<nsis~~-script~~>		<nsis>

	; Just a key to store a window handle in		; Just a key to store a window handle in
Line 29:		Line 29:
	FunctionEnd		FunctionEnd

	</nsis~~-script~~>		</nsis>

	This code also brings the running instance of the installer to the foreground if starting another instance.		This code also brings the running instance of the installer to the foreground if starting another instance.

Saivert at 16:08, 20 January 2006

2006-01-20T16:08:14Z

New page

No real need for this plugin as the System.dll plugin alread can do this.
Check out this code:

<nsis-script>

; Just a key to store a window handle in
!define PLUGIN_INSTREGKEY "Software\My Company\My Product"

Function .onInit
System::Call 'kernel32::CreateMutexA(i 0, i 0, t "NxSBalloonTipPluginSetup") i .r1 ?e'
Pop $R0

StrCmp $R0 0 noprevinst
ReadRegStr $R0 HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
System::Call 'user32::SetForegroundWindow(i $R0) i ?e'
Abort

noprevinst:

FunctionEnd

Function .onMyGUIInit
WriteRegStr HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle" "$HWNDPARENT"
FunctionEnd

Function .onGUIEnd
DeleteRegValue HKCU "${PLUGIN_INSTREGKEY}" "WindowHandle"
DeleteRegKey /ifempty HKCU "${PLUGIN_INSTREGKEY}"
FunctionEnd

</nsis-script>

This code also brings the running instance of the installer to the foreground if starting another instance.