← Back to branch summary

~ubuntu-branches/ubuntu/natty/vlc/natty

« back to all changes in this revision

Viewing changes to extras/package/win32/spad.nsi.in

  • Committer: Bazaar Package Importer
  • Author(s): Benjamin Drung
  • Date: 2010-06-25 01:09:16 UTC
  • mfrom: (1.1.30 upstream)
  • Revision ID: james.westby@ubuntu.com-20100625010916-asxhep2mutg6g6pd
Tags: 1.1.0-1ubuntu1
* Merge from Debian unstable, remaining changes:
  - build and install the libx264 plugin
  - add Xb-Npp header to vlc package
  - Add apport hook to include more vlc dependencies in bug reports
* Drop xulrunner patches.
* Drop 502_xulrunner_191.diff.

Show diffs side-by-side

added added

removed removed

Lines of Context:
extras/package/win32/spad.nsi.in
 
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
2
; "set program as default" script for vlc                                        ;
 
3
; more infos at http://msdn.microsoft.com/en-us/library/bb776851%28VS.85%29.aspx ;
 
4
; and http://msdn.microsoft.com/en-us/library/bb776851%28VS.85%29.aspx           ;
 
5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
6
 
 
7
!include LogicLib.nsh
 
8
 
 
9
Function GetOptions
 
10
        !define GetOptions `!insertmacro GetOptionsCall`
 
11
 
 
12
        !macro GetOptionsCall _PARAMETERS _OPTION _RESULT
 
13
                Push `${_PARAMETERS}`
 
14
                Push `${_OPTION}`
 
15
                Call GetOptions
 
16
                Pop ${_RESULT}
 
17
        !macroend
 
18
 
 
19
        Exch $1
 
20
        Exch
 
21
        Exch $0
 
22
        Exch
 
23
        Push $2
 
24
        Push $3
 
25
        Push $4
 
26
        Push $5
 
27
        Push $6
 
28
        Push $7
 
29
        ClearErrors
 
30
 
 
31
        StrCpy $2 $1 '' 1
 
32
        StrCpy $1 $1 1
 
33
        StrLen $3 $2
 
34
        StrCpy $7 0
 
35
 
 
36
        begin:
 
37
        StrCpy $4 -1
 
38
        StrCpy $6 ''
 
39
 
 
40
        quote:
 
41
        IntOp $4 $4 + 1
 
42
        StrCpy $5 $0 1 $4
 
43
        StrCmp $5$7 '0' notfound
 
44
        StrCmp $5 '' trimright
 
45
        StrCmp $5 '"' 0 +7
 
46
        StrCmp $6 '' 0 +3
 
47
        StrCpy $6 '"'
 
48
        goto quote
 
49
        StrCmp $6 '"' 0 +3
 
50
        StrCpy $6 ''
 
51
        goto quote
 
52
        StrCmp $5 `'` 0 +7
 
53
        StrCmp $6 `` 0 +3
 
54
        StrCpy $6 `'`
 
55
        goto quote
 
56
        StrCmp $6 `'` 0 +3
 
57
        StrCpy $6 ``
 
58
        goto quote
 
59
        StrCmp $5 '`' 0 +7
 
60
        StrCmp $6 '' 0 +3
 
61
        StrCpy $6 '`'
 
62
        goto quote
 
63
        StrCmp $6 '`' 0 +3
 
64
        StrCpy $6 ''
 
65
        goto quote
 
66
        StrCmp $6 '"' quote
 
67
        StrCmp $6 `'` quote
 
68
        StrCmp $6 '`' quote
 
69
        StrCmp $5 $1 0 quote
 
70
        StrCmp $7 0 trimleft trimright
 
71
 
 
72
        trimleft:
 
73
        IntOp $4 $4 + 1
 
74
        StrCpy $5 $0 $3 $4
 
75
        StrCmp $5 '' notfound
 
76
        StrCmp $5 $2 0 quote
 
77
        IntOp $4 $4 + $3
 
78
        StrCpy $0 $0 '' $4
 
79
        StrCpy $4 $0 1
 
80
        StrCmp $4 ' ' 0 +3
 
81
        StrCpy $0 $0 '' 1
 
82
        goto -3
 
83
        StrCpy $7 1
 
84
        goto begin
 
85
 
 
86
        trimright:
 
87
        StrCpy $0 $0 $4
 
88
        StrCpy $4 $0 1 -1
 
89
        StrCmp $4 ' ' 0 +3
 
90
        StrCpy $0 $0 -1
 
91
        goto -3
 
92
        StrCpy $3 $0 1
 
93
        StrCpy $4 $0 1 -1
 
94
        StrCmp $3 $4 0 end
 
95
        StrCmp $3 '"' +3
 
96
        StrCmp $3 `'` +2
 
97
        StrCmp $3 '`' 0 end
 
98
        StrCpy $0 $0 -1 1
 
99
        goto end
 
100
 
 
101
        notfound:
 
102
        SetErrors
 
103
        StrCpy $0 ''
 
104
 
 
105
        end:
 
106
        Pop $7
 
107
        Pop $6
 
108
        Pop $5
 
109
        Pop $4
 
110
        Pop $3
 
111
        Pop $2
 
112
        Pop $1
 
113
        Exch $0
 
114
FunctionEnd
 
115
 
 
116
; Remove shortcuts
 
117
!macro HideIcons
 
118
  WriteRegDWORD HKLM "Software\Clients\Media\VLC\InstallInfo" "IconsVisible" 0
 
119
  SetShellVarContext all  ; Set $DESKTOP to All Users
 
120
  ${Unless} ${FileExists} "$DESKTOP\VLC media player.lnk"
 
121
    SetShellVarContext current  ; Set $DESKTOP to the current user's desktop
 
122
  ${EndUnless}
 
123
  ${If} ${FileExists} "$DESKTOP\VLC media player.lnk"
 
124
    Delete "$DESKTOP\VLC media player.lnk"
 
125
  ${EndIf}
 
126
  ${If} ${FileExists} "$QUICKLAUNCH\VLC media player.lnk"
 
127
    Delete "$QUICKLAUNCH\VLC media player.lnk"
 
128
  ${EndIf}
 
129
!macroend
 
130
!define HideIcons "!insertmacro HideIcons"
 
131
 
 
132
; Adds shortcuts 
 
133
!macro ShowIcons
 
134
  WriteRegDWORD HKLM "Software\Clients\Media\VLC\InstallInfo" "IconsVisible" 1
 
135
  SetShellVarContext all  ; Set $DESKTOP to All Users
 
136
  ${Unless} ${FileExists} "$DESKTOP\VLC media player.lnk"
 
137
    CreateShortCut "$DESKTOP\VLC media player.lnk" "$EXEDIR\vlc.exe" "" "$EXEDIR\vlc.exe" 0
 
138
  ${EndUnless}
 
139
  ${Unless} ${FileExists} "$QUICKLAUNCH\VLC media player.lnk"
 
140
    CreateShortCut "$QUICKLAUNCH\VLC media player.lnk" "$EXEDIR\vlc.exe" "" "$EXEDIR\vlc.exe" 0
 
141
  ${EndUnless}
 
142
!macroend
 
143
!define ShowIcons "!insertmacro ShowIcons"
 
144
 
 
145
!macro Reinstall
 
146
    MessageBox MB_OK "Not implemented"
 
147
!macroend
 
148
!define Reinstall "!insertmacro reinstall"
 
149
 
 
150
Section
 
151
  SetShellVarContext all
 
152
  SetOutPath "$EXEDIR"
 
153
 
 
154
    ${GetOptions} $CMDLINE "HideIcons"  $R0
 
155
        IfErrors 0 +2
 
156
        goto showIc
 
157
    !insertmacro HideIcons
 
158
    
 
159
    showIc:
 
160
    ${GetOptions} $CMDLINE "ShowIcons"  $R0
 
161
    IfErrors 0 +2
 
162
    goto reinst
 
163
    !insertmacro ShowIcons
 
164
    
 
165
    reinst:
 
166
    ${GetOptions} $CMDLINE "Reinstall"  $R0
 
167
        IfErrors 0 +2
 
168
        goto end
 
169
    !insertmacro Reinstall
 
170
    
 
171
    end:
 
172
SectionEnd
 
173
 
 
174
;"setup" is aded to the file name to trigger the UAC heuristic and request admin privileges
 
175
OutFile "spad-setup.exe"
 
 
b'\\ No newline at end of file'