28c2e72073
- always register DLL/TLB, even if the installer didn't copy it there - only copy one RegTool and use it to register all of the DLLs and TLBs - extract the RegTool as an .exe so explorer won't complain it doesn't know how to open the file - fixed REGDLLTLB registering just as a TLB git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@3660 212acab6-be3b-0410-9dea-997c60f758d6
126 lines
2 KiB
NSIS
126 lines
2 KiB
NSIS
; RegTool
|
|
; Written by Joost Verburg
|
|
;
|
|
; This tool is used by the Library.nsh macros to register
|
|
; dynamic link libraries and type libraries after a reboot.
|
|
|
|
;--------------------------------
|
|
|
|
Name "RegTool"
|
|
OutFile "RegToolGenerator.exe"
|
|
SilentInstall silent
|
|
SilentUninstall silent
|
|
|
|
SetCompressor lzma
|
|
|
|
Icon "${NSISDIR}\Contrib\Graphics\Icons\classic-install.ico"
|
|
UninstallIcon "${NSISDIR}\Contrib\Graphics\Icons\classic-install.ico"
|
|
|
|
AllowRootDirInstall true
|
|
|
|
;--------------------------------
|
|
|
|
Var MODE
|
|
Var FILENAME
|
|
Var FOLDER
|
|
|
|
;--------------------------------
|
|
|
|
Section
|
|
|
|
WriteUninstaller $EXEDIR\RegTool.bin
|
|
|
|
SectionEnd
|
|
|
|
Section uninstall
|
|
|
|
StrCpy $0 -1
|
|
|
|
loop:
|
|
|
|
IntOp $0 $0 + 1
|
|
|
|
EnumRegValue $FILENAME HKLM "Software\NSIS.Library.RegTool" $0
|
|
StrCmp $FILENAME "" done
|
|
|
|
ReadRegStr $MODE HKLM "Software\NSIS.Library.RegTool" $FILENAME
|
|
|
|
StrCmp $MODE "DT" 0 +4
|
|
|
|
Call un.RegDLL
|
|
Call un.RegTLB
|
|
Goto loop
|
|
|
|
StrCmp $MODE "D" 0 +3
|
|
|
|
Call un.RegDLL
|
|
Goto loop
|
|
|
|
StrCmp $MODE "T" 0 +3
|
|
|
|
Call un.RegTLB
|
|
Goto loop
|
|
|
|
Goto loop
|
|
|
|
done:
|
|
|
|
DeleteRegKey HKLM "Software\NSIS.Library.RegTool"
|
|
Delete $INSTDIR\NSIS.Library.RegTool.exe
|
|
|
|
SectionEnd
|
|
|
|
Function un.RegDLL
|
|
|
|
Push $FILENAME
|
|
Call un.GetParent
|
|
Pop $FOLDER
|
|
|
|
SetOutPath $FOLDER
|
|
RegDLL $FILENAME
|
|
|
|
FunctionEnd
|
|
|
|
Function un.RegTLB
|
|
|
|
TypeLib::Register $FILENAME
|
|
|
|
FunctionEnd
|
|
|
|
; GetParent
|
|
; input, top of stack (e.g. C:\Program Files\Poop)
|
|
; output, top of stack (replaces, with e.g. C:\Program Files)
|
|
; modifies no other variables.
|
|
;
|
|
; Usage:
|
|
; Push "C:\Program Files\Directory\Whatever"
|
|
; Call GetParent
|
|
; Pop $R0
|
|
; ; at this point $R0 will equal "C:\Program Files\Directory"
|
|
|
|
Function un.GetParent
|
|
|
|
Exch $R0
|
|
Push $R1
|
|
Push $R2
|
|
Push $R3
|
|
|
|
StrCpy $R1 0
|
|
StrLen $R2 $R0
|
|
|
|
loop:
|
|
IntOp $R1 $R1 + 1
|
|
IntCmp $R1 $R2 get 0 get
|
|
StrCpy $R3 $R0 1 -$R1
|
|
StrCmp $R3 "\" get
|
|
Goto loop
|
|
|
|
get:
|
|
StrCpy $R0 $R0 -$R1
|
|
|
|
Pop $R3
|
|
Pop $R2
|
|
Pop $R1
|
|
Exch $R0
|
|
|
|
FunctionEnd
|