Prev Previous Post   Next Post Next
Old 8th August 2008, 16:11   #3
and84
Junior Member
 
Join Date: Apr 2008
Posts: 12
Quote:
Originally posted by pospec
You have to post a whole script if you want help.
All script...
PHP Code:
!include "MUI.nsh"
!include "Locate.nsh"

Name "Setup"
OutFile "Setup.exe"
Caption 'Setup: ÐžÐ±Ð½Ð¾Ð²Ð»ÐµÐ½Ð¸Ðµ'
SubCaption 0 " "
CRCCheck on
XPStyle on
MiscButtonText 
"Назад" "Вперед" "Прервать" "Готово"
InstallButtonText "Обновить"
ShowInstDetails show
CompletedText 
"Обновление Ð·Ð°Ð²ÐµÑ€ÑˆÐµÐ½Ð¾! Ð”ля Ð·Ð°Ð²ÐµÑ€ÑˆÐµÐ½Ð¸Ñ Ð½Ð°Ð¶Ð¼Ð¸Ñ‚е ÐºÐ½Ð¾Ð¿ÐºÑƒ 'Готово'"

Var url
Var ip
Var lnk
Var ini_xz
Var ip_add

Var HWND1
Var DLGITEM
Var FONT

Page license 
Page custom SetCustom 
"" ""
!insertmacro MUI_PAGE_INSTFILES
Licensetext 
" " "Продолжить"
LicenseData "lic1.rtf"
LicenseBkColor /windows
LicenseForceSelection checkbox 
"Я Ð¿Ñ€Ð¾Ñ‡Ð¸Ñ‚ал ÑÐ¾Ð³Ð»Ð°ÑˆÐµÐ½Ð¸Ðµ Ð¸ ÑÐ¾Ð³Ð»Ð°ÑÐµÐ½ Ñ ÐµÐ³Ð¾ ÑƒÑÐ»Ð¾Ð²Ð¸ÑÐ¼Ð¸!"

ReserveFile "${NSISDIR}\\Plugins\\InstallOptions.dll"
ReserveFile "page.ini"

!insertmacro MUI_LANGUAGE "Russian"

Section "-init"
        
StrCpy $url "Error"
        
StrCpy $ip "OFF"
        
StrCpy $lnk "OFF"
        
ReadINIStr $ini_xz "$PLUGINSDIR\\page.ini" "Field 2" "State"
        
StrCmp $ini_xz "1" +3
        StrCpy $url 
"http://22.10.10.120/load"
        
StrCpy $ip_add "22.10.10.120"
        
ReadINIStr $ini_xz "$PLUGINSDIR\\page.ini" "Field 3" "State"
        
StrCmp $ini_xz "1" +3
        StrCpy $url 
"http://10.1.1.177/load"
        
StrCpy $ip_add "10.1.1.177"
        
ReadINIStr $ini_xz "$PLUGINSDIR\\page.ini" "Field 4" "State"
        
StrCmp $ini_xz "1" +3
        StrCpy $ip 
"OK"
        
ReadINIStr $ini_xz "$PLUGINSDIR\\page.ini" "Field 12" "State"
        
StrCmp $ini_xz "1" +3
        StrCpy $lnk 
"OK"
SectionEnd
Section 
"-Install"
        
StrCpy $"0"
        
StrCmp $url "Error" 0 urlOK
        DetailPrint 
"Ошибка: ÐÐµ Ð¾Ð¿Ñ€ÐµÐ´ÐµÐ»ÐµÐ½ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€ URL=$url(58x59x60x77x78)!"
        
goto error
        urlOK
:
        
SetOutPath $EXEDIR
        DetailPrint 
"Соединение Ñ ÑÐµÑ€Ð²ÐµÑ€Ð¾Ð¼..."
        
DetailPrint "Загрузка Ñ„айл data.ini Ñ ÑÐµÑ€Ð²ÐµÑ€Ð°..."
        
NSISdl::download /TRANSLATE "Загрузка Ñ„айл data.ini Ñ ÑÐµÑ€Ð²ÐµÑ€Ð°..." "Соединение Ñ ÑÐµÑ€Ð²ÐµÑ€Ð¾Ð¼..." "сек." "мин." "ч." "c" "%d ÐšÐ± (%d%%) Ð¸Ð· %d ÐšÐ± -- %d.%01d ÐšÐ±/с" " ( %d %s Ð¾ÑÑ‚алось )" "$url/data.ini" "$EXEDIR\data.ini"
        
IfFileExists "$EXEDIR\\data.ini" +4
        
goto error
        DetailPrint 
"Чтения Ñ„айла..."
        
next:
        
IntOp $$1
        ReadINIStr $R1 
'$EXEDIR\\data.ini' 'FILE $2' 'NAME'
        
ReadINIStr $R2 '$EXEDIR\\data.ini' 'FILE $2' 'PATH'
        
ReadINIStr $R3 '$EXEDIR\\data.ini' 'FILE $2' 'CRC'
        
ReadINIStr $R4 '$EXEDIR\\data.ini' 'FILE $2' 'END'
        
StrCmp $R2 "system" +3 0
        StrCmp $R2 
"BASE" +2 0
        
goto end
        IfFileExists 
"$EXEDIR\$R2\$R1" +2
        
goto load
    CRCCheck
::GenCRC "$EXEDIR\$R2\$R1"
        
Pop $R0
        StrCmp $R0 $R3 end 0
        load
:
        
NSISdl::download /TRANSLATE "Загрузка Ñ„айлов Ð¿Ñ€Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñ‹..." "Соединение Ñ ÑÐµÑ€Ð²ÐµÑ€Ð¾Ð¼..." "сек." "мин." "ч." "c" "%d ÐšÐ± (%d%%) Ð¸Ð· %d ÐšÐ± -- %d.%01d ÐšÐ±/с" " ( %d %s Ð¾ÑÑ‚алось )" "$url/$R2/$R1" "$EXEDIR\$R2\$R1"
        
end:
        
StrCmp $R4 "END" +3
        DetailPrint 
"Обновление Ð·Ð°Ð²ÐµÑ€ÑˆÐµÐ½Ð¾ ÑƒÑÐ¿ÐµÑˆÐ½Ð¾!"
        
goto quit
        
goto next
        error
:
        
DetailPrint "Ошибка: ÐÐµÑ‚ Ð´Ð¾ÑÑ‚упа Ðº Ñ„айлу!"
        
DetailPrint "Обратитесь Ð² Ñ‚ех. Ð¿Ð¾Ð´Ð´ÐµÑ€Ð¶ÐºÑƒ Ð½Ð° Ñ„оруме!"
        
quit:
SectionEnd

Section 
"-host"
         
StrCmp $ip "OFF" +3
         DetailPrint 
"ВАЖНО! ÐÐµÐ¾Ð±Ñ…одимо Ð½Ð°Ñ‚сроить Ð¥Ð¾ÑÑ‚ Ñ„аил..."
         
Goto exit
         
CopyFiles $SYSDIR\\drivers\\etc\\hosts $SYSDIR\\drivers\\etc\\hosts.bak
         FileOpen 
$0 $SYSDIR\\drivers\\etc\\hosts w
         DetailPrint 
"Автоматическая Ð½Ð°ÑÑ‚ройка Ñ…ост Ñ„айла..."
         
FileWrite $"127.0.0.1              localhost$\n"
         
FileWrite $"$ip_add         Info.DT.net$\n"
         
FileWrite $"$ip_add         help.DT.net$\n"
         
FileClose $0
         
exit:
SectionEnd


Function .oninit
         System
::Call 'kernel32::CreateMutexA(i 0, i 0, t "myMutex") i .r1 ?e'
         
Pop $0
         StrCmp 
$0 0 +3
         MessageBox MB_OK
|MB_ICONEXCLAMATION "Setup.exe ÑƒÐ¶Ðµ Ð·Ð°Ð¿ÑƒÑ‰ÐµÐ½!"
         
Abort
         IfFileExists 
"$EXEDIR\system\RunDT.exe" +2
         MessageBox MB_ICONSTOP
|MB_OK "Setup.exe Ð½ÐµÐ¾Ð±Ñ…одимо Ð·Ð°Ð¿ÑƒÑÐºÐ°Ñ‚ÑŒ Ð¸Ð· Ð¿Ð°Ð¿ÐºÐ¸ Ð¿Ñ€Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñ‹ DT!" IDOK +2
         MessageBox MB_USERICON
|MB_YESNO|MB_DEFBUTTON1 "Обновить Ð’аш ÐºÐ»Ð¸ÐµÐ½Ñ‚?" IDYES +2
         Abort
         InitPluginsDir
         File 
/oname=$PLUGINSDIR\\page.ini "page.ini"
Functionend

Function SetCustom
         
!insertmacro MUI_HEADER_TEXT "TEXT1" "TEXT2"
         
!insertmacro INSTALLOPTIONS_INITDIALOG "page.ini"
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "page.ini" "Field 1" "HWND" Ð’ыбор
                      CreateFont $FONT 
"Tahoma" 8 700
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "page.ini" "Field 5" "HWND" Ð¥Ð¾ÑÑ‚
                      CreateFont $FONT 
"Tahoma" 8 700
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "page.ini" "Field 7" "HWND" ÐŸ ÐÐµÑ‚
                      CreateFont $FONT 
"Tahoma" 8 300 /UNDERLINE
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "page.ini" "Field 9" "HWND" ÐŸ Ð_еал
                      CreateFont $FONT 
"Tahoma" 8 300 /UNDERLINE
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "page.ini" "Field 6" "HWND"
                      
CreateFont $FONT "Tahoma" 8 300 /UNDERLINE
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_READ $DLGITEM "test.ini" "Field 2" "HWND"
                      
CreateFont $FONT "Tahoma" 8 400
                      SendMessage $DLGITEM 
${WM_SETFONT$FONT 0
         
!insertmacro INSTALLOPTIONS_SHOW
FunctionEnd

Function .onInstSuccess
         StrCmp $lnk 
"OK" +2
         DetailPrint 
"Создание ÑÑ€Ð»Ñ‹ÐºÐ° Ð½Ð° Ñ€Ð°Ð±Ð¾Ñ‡ÐµÐ¼ ÑÑ‚оле..."
         
CreateShortCut "$DESKTOP\RunDT.lnk" "$EXEDIR\system\RunDT.exe" "" "$EXEDIR\system\DT.ico"
FunctionEnd 
Structure page.ini
PHP Code:
[Settings]
NumFields=12

[Field 1]
Type=GroupBox
Left
=0
Right
=-1
Top
=1
Bottom
=-65
Text
=" ÐÐ°Ñ‚ройки Ð¾Ð±Ð½Ð¾Ð²Ð»ÐµÐ½Ð¸Ñ... "

[Field 2]
Type=RadioButton
Text
=Я Ð¸Ð· Ð³Ñ€ÑƒÐ¿Ð¿Ñ‹ Home
Left
=10
Right
=-10
Top
=14
Bottom
=22
State
=1
Flags
=/NOTIFY

[Field 3]
Type=RadioButton
Text
=Я Ð¸Ð· Ð»Ð¾ÐºÐ°Ð»ÑŒÐ½Ð¾Ð¹ ÑÐµÑ‚и DT
Left
=10
Right
=-10
Top
=47
Bottom
=57
State
=0
Flags
=/NOTIFY

[Field 4]
Type=checkbox
Text
=Настроить Ñ…ост-фаил
Left
=10
Right
=-10
Top
=95
Bottom
=105
State
=1
Flags
=NOTABSTOP

[Field 5]
Type=GroupBox
Left
=0
Right
=-1
Top
=83
Bottom
=-1
Text
=" Ð”ополнительно... "

[Field 6]
Type=Label
Left
=25
Right
=-230
Top
=106
Bottom
=116
Text
=Примечание:

[
Field 11]
Type=Label
Left
=-227
Right
=-5
Top
=106
Bottom
=116
Text
=Ð_екомендуется Ð°Ð²Ñ‚оматическая Ð½Ð°ÑÑ‚ройка.

[
Field 7]
Type=Label
Left
=28
Right
=-230
Top
=25
Bottom
=35
Text
=Примечание:

[
Field 8]
Type=Label
Left
=-227
Right
=-5
Top
=25
Bottom
=45
Text
=Для Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚елями Ð³Ñ€ÑƒÐ¿Ð¿Ñ‹ Home.

[
Field 9]
Type=Label
Left
=28
Right
=-230
Top
=58
Bottom
=68
Text
=Примечание:

[
Field 10]
Type=Label
Left
=-227
Right
=-5
Top
=58
Bottom
=68
Text
=Только Ð´Ð»Ñ Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚елей Ð»Ð¾ÐºÐ°Ð»ÑŒÐ½Ð¾Ð¹ ÑÐµÑ‚и.

[
Field 12]
Type=checkbox
Text
=Создать ÑÑ€Ð»Ñ‹Ðº Ð½Ð° Ñ€Ð°Ð±Ð¾Ñ‡ÐµÐ¼ ÑÑ‚оле.
Left=10
Right
=-10
Top
=121
Bottom
=131
State
=1
Flags
=NOTABSTOP 
and84 is offline   Reply With Quote
 
Go Back   Winamp & Shoutcast Forums > Developer Center > NSIS Discussion

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump