split the common control for the server in its own control script
This commit is contained in:
8
CLIENT_DATA/control3264.ins
Normal file
8
CLIENT_DATA/control3264.ins
Normal file
@@ -0,0 +1,8 @@
|
|||||||
|
[DosInAnIcon_stop_server]
|
||||||
|
net stop tvnserver
|
||||||
|
ping 127.0.0.1 -n 5 >nul
|
||||||
|
taskkill /F /IM tvnserver.exe
|
||||||
|
ping 127.0.0.1 -n 5 >nul
|
||||||
|
|
||||||
|
[DosInAnIcon_start_server]
|
||||||
|
net start tvnserver
|
||||||
@@ -136,12 +136,3 @@ DefVar $server_viewonlypassword_set$
|
|||||||
Set $server_viewonlypassword_set$ = GetProductProperty("server_viewonlypassword_set", "0")
|
Set $server_viewonlypassword_set$ = GetProductProperty("server_viewonlypassword_set", "0")
|
||||||
DefVar $server_viewonlypassword_value_of$
|
DefVar $server_viewonlypassword_value_of$
|
||||||
Set $server_viewonlypassword_value_of$ = GetProductProperty("server_viewonlypassword_value_of", "")
|
Set $server_viewonlypassword_value_of$ = GetProductProperty("server_viewonlypassword_value_of", "")
|
||||||
|
|
||||||
[DosInAnIcon_stop_server]
|
|
||||||
net stop tvnserver
|
|
||||||
ping 127.0.0.1 -n 5 >nul
|
|
||||||
taskkill /F /IM tvnserver.exe
|
|
||||||
ping 127.0.0.1 -n 5 >nul
|
|
||||||
|
|
||||||
[DosInAnIcon_start_server]
|
|
||||||
net start tvnserver
|
|
||||||
|
|||||||
@@ -68,6 +68,11 @@ else
|
|||||||
comment "Show product picture"
|
comment "Show product picture"
|
||||||
ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $NAME$
|
ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $NAME$
|
||||||
|
|
||||||
|
if FileExists("%ScriptPath%\control3264.ins")
|
||||||
|
comment "Include Control sub section"
|
||||||
|
Sub "%ScriptPath%\control3264.ins"
|
||||||
|
endif
|
||||||
|
|
||||||
comment "Stop TightVNC Server"
|
comment "Stop TightVNC Server"
|
||||||
DosInAnIcon_stop_server
|
DosInAnIcon_stop_server
|
||||||
|
|
||||||
|
|||||||
@@ -59,7 +59,13 @@ ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $NAME$
|
|||||||
|
|
||||||
Message "Uninstalling " + $ProductId$ + " ..."
|
Message "Uninstalling " + $ProductId$ + " ..."
|
||||||
|
|
||||||
|
if FileExists("%ScriptPath%\control3264.ins")
|
||||||
|
comment "Include Control sub section"
|
||||||
|
Sub "%ScriptPath%\control3264.ins"
|
||||||
|
endif
|
||||||
|
|
||||||
if FileExists("%ScriptPath%\delsub3264.ins")
|
if FileExists("%ScriptPath%\delsub3264.ins")
|
||||||
comment "Start uninstall sub section"
|
comment "Start uninstall sub section"
|
||||||
Sub "%ScriptPath%\delsub3264.ins"
|
Sub "%ScriptPath%\delsub3264.ins"
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user