/[ascend]/trunk/nsis/detect.nsi
ViewVC logotype

Diff of /trunk/nsis/detect.nsi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2491 by jpye, Sat Mar 26 00:44:44 2011 UTC revision 2492 by jpye, Sat Aug 13 04:05:13 2011 UTC
# Line 89  FunctionEnd Line 89  FunctionEnd
89    
90  ;--------------------------------------------------------------------  ;--------------------------------------------------------------------
91    
92  Function DetectTcl  ;Function DetectTcl
93      ReadRegStr $R6 HKCU "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"  ;   ReadRegStr $R6 HKCU "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
94      ${If} $R6 == ''  ;   ${If} $R6 == ''
95          ReadRegStr $R6 HKLM "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"  ;       ReadRegStr $R6 HKLM "SOFTWARE\ActiveState\ActiveTcl" "CurrentVersion"
96          ${If} $R6 == ''  ;       ${If} $R6 == ''
97              Push "No 'CurrentVersion' registry key"  ;           Push "No 'CurrentVersion' registry key"
98              Push "NOK"  ;           Push "NOK"
99              Return  ;           Return
100          ${Else}  ;       ${Else}
101              StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"  ;           StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
102              ReadRegStr $R8 HKLM $R7 ""        ;           ReadRegStr $R8 HKLM $R7 ""      
103          ${EndIf}  ;       ${EndIf}
104      ${Else}  ;   ${Else}
105          StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"  ;       StrCpy $R7 "SOFTWARE\ActiveState\ActiveTcl\$R6"
106          ReadRegStr $R8 HKCU $R7 ""        ;       ReadRegStr $R8 HKCU $R7 ""      
107      ${EndIf}  ;   ${EndIf}
108        ;  
109      ${If} $R8 == ''  ;   ${If} $R8 == ''
110          Push "No value for $R7"  ;       Push "No value for $R7"
111          Push "NOK"  ;       Push "NOK"
112      ${Else}  ;   ${Else}
113          Push "$R8\bin"  ;       Push "$R8\bin"
114          Push "OK"  ;       Push "OK"
115      ${EndIf}  ;   ${EndIf}
116  FunctionEnd  ;FunctionEnd
Legend:
Removed from v.2491  
changed lines
  Added in v.2492
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22