| 123456789101112131415161718192021222324252627282930313233343536373839404142 |
- !macro _OpenURL URL
- Push "${URL}"
- Push $3
- Exch
- Push $2
- Exch
- Push $1
- Exch
- Push $0
- Exch
-
- ReadRegStr $0 HKCR "http\shell\open\command" ""
- # Get browser path
- DetailPrint $0
- StrCpy $2 '"'
- StrCpy $1 $0 1
- StrCmp $1 $2 +2 # if path is not enclosed in " look for space as final char
- StrCpy $2 ' '
- StrCpy $3 1
- loop:
- StrCpy $1 $0 1 $3
- DetailPrint $1
- StrCmp $1 $2 found
- StrCmp $1 "" found
- IntOp $3 $3 + 1
- Goto loop
-
- found:
- StrCpy $1 $0 $3
- StrCmp $2 " " +2
- StrCpy $1 '$1"'
-
- Pop $0
- Exec '$1 $0'
- Pop $0
- Pop $1
- Pop $2
- Pop $3
- !macroend
- !define OpenURL '!insertmacro "_OpenURL"'
- !define un.OpenURL '!insertmacro "_OpenURL"'
|
