!define _VERSION '4.5.3' !define _VERSION_CODE 0x04050079 !ifndef _DEBUG !define FLAVOUR 'Release' !define VERSION '${_VERSION}' !else !define FLAVOUR 'Debug' !define VERSION '${_VERSION} Debug' !endif ;-------------------------------- ;Includes !include "MUI2.nsh" !include "UpdateDLL.nsh" !include "WinVer.nsh" !include "nsDialogs.nsh" ;-------------------------------- ;General SetCompressor /SOLID lzma ;Name and file Name "KernelEx" Caption "KernelEx ${VERSION} Setup" OutFile "KernelEx-dev.exe" ;Default installation folder InstallDir "$WINDIR\KernelEx" ;Get installation folder from registry if available InstallDirRegKey HKLM "Software\KernelEx" "InstallDir" ;-------------------------------- ;Variables Var ENABLEBUTTON Var WARNING_TEXT Var StartMenuFolder ;-------------------------------- ;Interface Settings !define MUI_ABORTWARNING ; !define MUI_FINISHPAGE_NOAUTOCLOSE ; !define MUI_UNFINISHPAGE_NOAUTOCLOSE ;-------------------------------- ;Pages !insertmacro MUI_PAGE_WELCOME !insertmacro MUI_PAGE_LICENSE "License.txt" ;Start Menu Folder Page Configuration !define MUI_STARTMENUPAGE_REGISTRY_ROOT "HKLM" !define MUI_STARTMENUPAGE_REGISTRY_KEY "Software\KernelEx" !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "SMDir" !insertmacro MUI_PAGE_STARTMENU Application $StartMenuFolder !insertmacro MUI_PAGE_INSTFILES Page custom PageDefConfig PageLeaveDefConfig !insertmacro MUI_PAGE_FINISH !insertmacro MUI_UNPAGE_WELCOME !insertmacro MUI_UNPAGE_CONFIRM !insertmacro MUI_UNPAGE_INSTFILES !insertmacro MUI_UNPAGE_FINISH ;-------------------------------- ;Languages !insertmacro MUI_LANGUAGE "English" LangString DESC_SHORTPRODUCT ${LANG_ENGLISH} "Microsoft Layer for Unicode" LangString DESC_LONGPRODUCT ${LANG_ENGLISH} "Microsoft Layer for Unicode on Windows 95, 98, and Me Systems, 1.1.3790.0" LangString DESC_PRODUCT_DECISION ${LANG_ENGLISH} "$(DESC_SHORTPRODUCT) is required.$\nIt is strongly \ advised that you install$\n$(DESC_SHORTPRODUCT) before continuing.$\nIf you choose to continue, \ you will need to connect$\nto the internet before proceeding.$\nWould you like to continue with \ the installation?" LangString SEC_PRODUCT ${LANG_ENGLISH} "$(DESC_SHORTPRODUCT) " LangString DESC_INSTALLING ${LANG_ENGLISH} "Installing" LangString DESC_DOWNLOADING1 ${LANG_ENGLISH} "Downloading" LangString DESC_DOWNLOADFAILED ${LANG_ENGLISH} "Download Failed:" LangString ERROR_PRODUCT_INVALID_PATH ${LANG_ENGLISH} "The $(DESC_SHORTPRODUCT) Installation$\n\ was not found in the following location:$\n" LangString ERROR_PRODUCT_FATAL ${LANG_ENGLISH} "A fatal error occurred during the installation$\n\ of the $(DESC_SHORTPRODUCT)." LangString DESC_SETTINGS_PRESERVE ${LANG_ENGLISH} "Do you want to preserve custom settings?" ;-------------------------------- ;Functions Function PageDefConfig nsDialogs::Create /NOUNLOAD 1018 Pop $0 !insertmacro MUI_HEADER_TEXT "Default configuration" "Choose default configuration of KernelEx." nsDialogs::CreateItem /NOUNLOAD STATIC ${WS_VISIBLE}|${WS_CHILD}|${WS_CLIPSIBLINGS} 0 0 0 100% 40 "You can choose default KernelEx configuration here. This configuration will be used for all applications for which no other configuration is specified." Pop $R0 nsDialogs::CreateItem /NOUNLOAD BUTTON ${BS_AUTORADIOBUTTON}|${BS_VCENTER}|${BS_MULTILINE}|${WS_VISIBLE}|${WS_CHILD}|${WS_CLIPSIBLINGS}|${WS_GROUP}|${WS_TABSTOP} 0 10 75 100% 30 "Enable KernelEx extensions for all applications (recommended)" Pop $ENABLEBUTTON ${NSD_OnClick} $ENABLEBUTTON ToggleWarning nsDialogs::CreateItem /NOUNLOAD BUTTON ${BS_AUTORADIOBUTTON}|${BS_TOP}|${BS_MULTILINE}|${WS_VISIBLE}|${WS_CHILD}|${WS_CLIPSIBLINGS} 0 10 105 100% 30 "Disable KernelEx extensions" Pop $R0 ${NSD_OnClick} $R0 ToggleWarning nsDialogs::CreateItem /NOUNLOAD STATIC ${WS_CHILD}|${WS_CLIPSIBLINGS} 0 0 175 100% 40 "If you choose to disable KernelEx extensions, programs you run won't get extended API functions by default. You will have to enable KernelEx extensions individually for applications which require newer Windows versions. This choice is better if you're paranoid." Pop $WARNING_TEXT SendMessage $ENABLEBUTTON ${BM_SETCHECK} 1 0 nsDialogs::Show FunctionEnd Function PageLeaveDefConfig SendMessage $ENABLEBUTTON ${BM_GETCHECK} 0 0 $R0 ${If} $R0 == 1 WriteRegDWORD HKLM "Software\KernelEx" "DisableExtensions" 0 ${Else} WriteRegDWORD HKLM "Software\KernelEx" "DisableExtensions" 1 ${EndIf} FunctionEnd Function ToggleWarning Pop $R0 ${If} $R0 == $ENABLEBUTTON ShowWindow $WARNING_TEXT ${SW_HIDE} ${Else} ShowWindow $WARNING_TEXT ${SW_SHOW} ${EndIf} FunctionEnd ;-------------------------------- ;Installer Section Section "MSLU" SECPRODUCT !define URL_PRODUCT "http://download.microsoft.com/download/b/7/5/b75eace3-00e2-4aa0-9a6f-0b6882c71642/unicows.exe" IfFileExists $SYSDIR\unicows.dll 0 lbl_download ;check version GetDllVersion $SYSDIR\unicows.dll $R0 $R1 IntOp $R2 $R0 / 0x00010000 IntOp $R3 $R0 & 0x0000FFFF IntOp $R4 $R1 / 0x00010000 IntOp $R5 $R1 & 0x0000FFFF StrCmp "1.1.3790.0" "$R2.$R3.$R4.$R5" lbl_Skip lbl_download: DetailPrint "$(DESC_DOWNLOADING1) $(DESC_SHORTPRODUCT)..." MessageBox MB_ICONEXCLAMATION|MB_YESNO|MB_DEFBUTTON2 "$(DESC_PRODUCT_DECISION)" /SD IDNO \ IDYES +2 IDNO 0 Abort ; Download AddSize 900 nsisdl::download /TIMEOUT=30000 "${URL_PRODUCT}" "$TEMP\unicows.exe" Pop $0 StrCmp "$0" "success" lbl_continue DetailPrint "$(DESC_DOWNLOADFAILED) $0" Abort lbl_continue: DetailPrint "$(DESC_INSTALLING) $(DESC_SHORTPRODUCT)..." Banner::show /NOUNLOAD "$(DESC_INSTALLING) $(DESC_SHORTPRODUCT)..." CreateDirectory "$INSTDIR\MSLU" ExecWait '"$TEMP\unicows.exe" /t:$INSTDIR\MSLU' $0 Banner::destroy Delete "$TEMP\unicows.exe" ; obtain any error code and inform the user ($0) ; If nsExec is unable to execute the process, ; it will return "error" ; If the process timed out it will return "timeout" ; else it will return the return code from the executed process. StrCmp $0 "" lbl_Error StrCmp $0 "0" lbl_NoError ; all others are fatal DetailPrint "$(ERROR_PRODUCT_FATAL)[$0]" Goto lbl_commonError lbl_Error: DetailPrint "$(ERROR_PRODUCT_INVALID_PATH)" Goto lbl_commonError lbl_commonError: RMDir /r "$INSTDIR" Abort lbl_NoError: CopyFiles /SILENT "$INSTDIR\MSLU\unicows.dll" "$INSTDIR\mslu.tmp" Rename /REBOOTOK "$INSTDIR\mslu.tmp" "$SYSDIR\unicows.dll" lbl_Skip: SectionEnd Section "Install" SetDetailsView show SetOutPath "$INSTDIR" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce" "KexNeedsReboot" "" ;Revert KERNEL32.DLL file patch in case of upgrade IfFileExists "$WINDIR\SYSBCKUP\KERNEL32.DLL" 0 +7 GetTempFileName $0 "$SYSDIR" Delete $0 Rename /REBOOTOK "$WINDIR\SYSBCKUP\KERNEL32.DLL" $0 Rename /REBOOTOK $0 "$SYSDIR\kernel32.dll" Delete "$INSTDIR\kernel32.bak" Goto Revert_Done IfFileExists "$INSTDIR\kernel32.bak" 0 +6 GetTempFileName $0 "$SYSDIR" Delete $0 Rename /REBOOTOK "$INSTDIR\kernel32.bak" $0 Rename /REBOOTOK $0 "$SYSDIR\kernel32.dll" Goto Revert_Done Revert_Done: Delete /REBOOTOK "$INSTDIR\setupkex.exe" ;Files to install ;UpdateDLL_Func params: ;$R4 - target; $R5 - tempdir; $R6 - register?; $R7 - source GetTempFileName $0 "$INSTDIR" File /oname=$0 "Core\${FLAVOUR}\KernelEx.dll" StrCpy $R4 "$INSTDIR\KernelEx.dll" StrCpy $R6 "0" StrCpy $R7 $0 Call UpgradeDLL_Func GetTempFileName $0 "$INSTDIR" File /oname=$0 "apilibs\kexbases\${FLAVOUR}\kexbases.dll" StrCpy $R4 "$INSTDIR\kexbases.dll" StrCpy $R6 "0" StrCpy $R7 $0 Call UpgradeDLL_Func GetTempFileName $0 "$INSTDIR" File /oname=$0 "apilibs\kexbasen\${FLAVOUR}\kexbasen.dll" StrCpy $R4 "$INSTDIR\kexbasen.dll" StrCpy $R6 "0" StrCpy $R7 $0 Call UpgradeDLL_Func GetTempFileName $0 "$INSTDIR" File /oname=$0 "sheet\${FLAVOUR}\sheet.dll" StrCpy $R4 "$INSTDIR\sheet.dll" StrCpy $R6 "1" StrCpy $R7 $0 Call UpgradeDLL_Func GetTempFileName $0 "$INSTDIR" File /oname=$0 "kexCOM\${FLAVOUR}\kexCOM.dll" StrCpy $R4 "$INSTDIR\kexCOM.dll" StrCpy $R6 "1" StrCpy $R7 $0 Call UpgradeDLL_Func SetOverwrite on File apilibs\core.ini File apilibs\settings.reg File license.txt File "Release Notes.txt" GetTempFileName $0 "$INSTDIR" File /oname=$0 "vxd\${FLAVOUR}\VKrnlEx.vxd" Delete "$INSTDIR\VKrnlEx.vxd" Rename /REBOOTOK $0 "$INSTDIR\VKrnlEx.vxd" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\msimg32.dll Delete "$INSTDIR\msimg32.dll" Rename /REBOOTOK $0 "$INSTDIR\msimg32.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "MSIMG32" "MSIMG32.DLL" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\pdh.dll Delete "$INSTDIR\pdh.dll" Rename /REBOOTOK $0 "$INSTDIR\pdh.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "PDH" "PDH.DLL" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\psapi.dll Delete "$INSTDIR\psapi.dll" Rename /REBOOTOK $0 "$INSTDIR\psapi.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "PSAPI" "PSAPI.DLL" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\uxtheme.dll Delete "$INSTDIR\uxtheme.dll" Rename /REBOOTOK $0 "$INSTDIR\uxtheme.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "UXTHEME" "UXTHEME.DLL" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\wtsapi32.dll Delete "$INSTDIR\wtsapi32.dll" Rename /REBOOTOK $0 "$INSTDIR\wtsapi32.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "WTSAPI32" "WTSAPI32.DLL" GetTempFileName $0 "$INSTDIR" File /oname=$0 auxiliary\userenv.dll Delete "$INSTDIR\userenv.dll" Rename /REBOOTOK $0 "$INSTDIR\userenv.dll" WriteRegStr HKLM "Software\KernelEx\KnownDLLs" \ "USERENV" "USERENV.DLL" SetOverwrite lastused ExecWait '"$WINDIR\regedit.exe" /s "$INSTDIR\settings.reg"' Delete "$INSTDIR\settings.reg" CreateDirectory $WINDIR\AppPatch\Custom File /oname=$WINDIR\AppPatch\Custom\KernelEx.sdb "util\sdbcreate\sdbdb\KernelEx.sdb" File "util\sdbcreate\sdbdb\kexsdb.i.reg" ExecWait '"$WINDIR\regedit.exe" /s "$INSTDIR\kexsdb.i.reg"' Delete "$INSTDIR\kexsdb.i.reg" ;Store installation folder WriteRegStr HKLM "Software\KernelEx" "InstallDir" $INSTDIR ;Store run key WriteRegStr HKLM "System\CurrentControlSet\Services\VxD\VKRNLEX" "StaticVxD" "$INSTDIR\VKrnlEx.vxd" WriteRegStr HKLM "System\CurrentControlSet\Control\MPRServices\KernelEx" "DLLName" "$INSTDIR\KernelEx.dll" WriteRegStr HKLM "System\CurrentControlSet\Control\MPRServices\KernelEx" "EntryPoint" "_MprStart@4" WriteRegDWORD HKLM "System\CurrentControlSet\Control\MPRServices\KernelEx" "StackSize" 0x1000 ;Store uninstaller key WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\KernelEx" "DisplayName" "KernelEx ${VERSION}" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\KernelEx" "UninstallString" '"$INSTDIR\uninstall.exe"' ;Write verifier SetOverWrite on File verify\${FLAVOUR}\verify.exe WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Run" \ "KexVerify" "$INSTDIR\verify.exe" SetOverwrite lastused ;Create uninstaller WriteUninstaller "$INSTDIR\Uninstall.exe" ;Create shortcuts !insertmacro MUI_STARTMENU_WRITE_BEGIN Application CreateDirectory "$SMPROGRAMS\$StartMenuFolder" CreateShortCut "$SMPROGRAMS\$StartMenuFolder\Release Notes.lnk" "$INSTDIR\Release Notes.txt" CreateShortCut "$SMPROGRAMS\$StartMenuFolder\Verify Installation.lnk" "$INSTDIR\verify.exe" CreateShortCut "$SMPROGRAMS\$StartMenuFolder\KernelEx Home Page.lnk" "http://kernelex.sourceforge.net/" CreateShortCut "$SMPROGRAMS\$StartMenuFolder\KernelEx Wiki.lnk" "http://kernelex.sourceforge.net/wiki/" CreateShortCut "$SMPROGRAMS\$StartMenuFolder\Uninstall.lnk" "$INSTDIR\Uninstall.exe" !insertmacro MUI_STARTMENU_WRITE_END SetRebootFlag true SectionEnd ;-------------------------------- ;Uninstaller Section Section "Uninstall" SetDetailsView show ;Files to uninstall IfFileExists "$WINDIR\SYSBCKUP\KERNEL32.DLL" 0 +5 GetTempFileName $0 "$SYSDIR" Delete $0 CopyFiles /SILENT "$WINDIR\SYSBCKUP\KERNEL32.DLL" $0 Rename /REBOOTOK $0 "$SYSDIR\kernel32.dll" Delete /REBOOTOK "$INSTDIR\KernelEx.dll" Delete /REBOOTOK "$INSTDIR\kexbases.dll" Delete /REBOOTOK "$INSTDIR\kexbasen.dll" Delete "$INSTDIR\core.ini" UnRegDLL "$INSTDIR\sheet.dll" Delete /REBOOTOK "$INSTDIR\sheet.dll" UnRegDLL "$INSTDIR\kexCOM.dll" Delete /REBOOTOK "$INSTDIR\kexCOM.dll" Delete "$INSTDIR\license.txt" Delete "$INSTDIR\Release Notes.txt" Delete /REBOOTOK "$INSTDIR\VKrnlEx.vxd" Delete /REBOOTOK "$INSTDIR\msimg32.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "MSIMG32" Delete /REBOOTOK "$INSTDIR\pdh.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "PDH" Delete /REBOOTOK "$INSTDIR\psapi.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "PSAPI" Delete /REBOOTOK "$INSTDIR\uxtheme.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "UXTHEME" Delete /REBOOTOK "$INSTDIR\wtsapi32.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "WTSAPI32" Delete /REBOOTOK "$INSTDIR\userenv.dll" DeleteRegValue HKLM "Software\KernelEx\KnownDLLs" "USERENV" File "util\sdbcreate\sdbdb\kexsdb.u.reg" ExecWait '"$WINDIR\regedit.exe" /s "$INSTDIR\kexsdb.u.reg"' Delete "$INSTDIR\kexsdb.u.reg" Delete /REBOOTOK "$WINDIR\AppPatch\Custom\KernelEx.sdb" RMDir "$WINDIR\AppPatch\Custom" Delete "$INSTDIR\verify.exe" DeleteRegValue HKLM "Software\Microsoft\Windows\CurrentVersion\Run" "KexVerify" Delete "$INSTDIR\Uninstall.exe" RMDir /r "$INSTDIR\MSLU" WriteINIStr $WINDIR\wininit.ini Rename DIRNUL $INSTDIR ;remove Start Menu shortcuts !insertmacro MUI_STARTMENU_GETFOLDER Application $StartMenuFolder RMDir /r "$SMPROGRAMS\$StartMenuFolder" MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "$(DESC_SETTINGS_PRESERVE)" IDYES +2 IDNO 0 DeleteRegKey HKLM "Software\KernelEx" DeleteRegKey HKLM "System\CurrentControlSet\Services\VxD\VKRNLEX" DeleteRegKey HKLM "System\CurrentControlSet\Control\MPRServices\KernelEx" DeleteRegKey /ifempty HKLM "System\CurrentControlSet\Control\MPRServices" DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\KernelEx" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce" "KexNeedsReboot" "" SetRebootFlag true SectionEnd ;-------------------------------- ; Detect obsolete pre-4.0 KUP or KEX Function DetectOldKex System::Call "kernel32::KUPVersion(m .r0)" StrCmp $0 "" 0 +4 System::Call "kernel32::KEXVersion(m .r0)" StrCmp $0 "" 0 +2 Return StrCpy $1 $0 1 0 IntCmp $1 4 +3 0 +3 MessageBox MB_ICONSTOP|MB_OK "Setup has detected previous version of KernelEx ($0) installed on this computer. Please uninstall it before continuing." Abort FunctionEnd ;-------------------------------- ; We can't predict future... downgrading from higher version is forbidden Function DetectDowngrade System::Call "kernelex::kexGetKEXVersion() i.r0 ? u" StrCmp $0 "" 0 +2 Return IntCmp $0 ${_VERSION_CODE} +3 +3 0 MessageBox MB_ICONSTOP|MB_OK "Can't downgrade. Please uninstall currently installed version of KernelEx before continuing." Abort FunctionEnd ;-------------------------------- ;.onInit Function .onInit ${If} ${IsWin98} ${OrIf} ${IsWinME} Goto lbl_Ok ${EndIf} MessageBox MB_ICONSTOP|MB_OK "This program requires Windows 98 or Windows Millennium." Abort lbl_Ok: ReadRegStr $0 HKLM "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce" "KexNeedsReboot" IfErrors +3 MessageBox MB_ICONSTOP|MB_OK "Detected unfinished previous installation.$\n\ You have to restart the system in order to complete it before you can proceed further." Abort Call DetectOldKex Call DetectDowngrade FunctionEnd Function un.onInit ReadRegStr $0 HKLM "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce" "KexNeedsReboot" IfErrors +3 MessageBox MB_ICONSTOP|MB_OK "Detected unfinished previous installation.$\n\ You have to restart the system in order to complete it before you can proceed further." Abort FunctionEnd