Надеюсь на помощь...
Структура нужна примерно такая: проверка1---проверка2---если нет данных, то запись---копирование новых файлов
Пытался делать кусками, но теперь проблема объединить.
С логикой беда - если значение не найдено, из цикла выползти не могу (разве что через ${LoopUntil} - см. в первом куске)
1 этап Проверка была ли уже установка. Желательно двумя способами - по cfg и по xml , которые могут быть либо в папке юзера, либо в папке All users
Проблема с циклом и переходом к анализу xml?
; поиск в cfg
Section
;если установлено для текущего пользователя
ClearErrors
IfFileExists "$APPDATA\Microsoft\FSX\fsx.cfg" 0 NotFiles
StrCpy $0 0
${Do}
ReadINIStr $1 "$APPDATA\Microsoft\FSX\fsx.cfg" "main" "SimObjectPaths.$0"
${If} $1 == "SimObjects\UT2 Aircraft"
MessageBox mb_ok "найден в юзерпапке"
${ExitDo}
${EndIf}
InTop $0 $0 + 1
${LoopUntil} $0 == '50' ;??????
Goto end
;если установлено для всех
NotFiles:
ClearErrors
SetShellVarContext all
StrCpy $0 0
${Do}
ReadINIStr $1 "$APPDATA\Microsoft\FSX\fsx.cfg" "main" "SimObjectPaths.$0"
${If} $1 == "SimObjects\UT2 Aircraft"
MessageBox mb_ok "найден в allusers"
${ExitDo}
${EndIf}
InTop $0 $0 + 1
${LoopUntil} $0 == '50' ;??????
end:
SectionEnd
; поиск в xml
Section
;если установлено для текущего пользователя
ClearErrors
StrCpy $0 0
IfFileExists "$APPDATA\Microsoft\FSX\exe.xml" 0 NotFiles
${xml::LoadFile} "$APPDATA\Microsoft\FSX\exe.xml" $0
loop1:
${xml::FindNextElement} "Name" $0 $1
${xml::GetText} $1 $2
${If} $1 == "UT2"
MessageBox MB_OK "$1 найден"
Goto end
${EndIf}
Goto loop1
${xml::FindCloseElement}
${xml::Unload}
NotFiles:
ClearErrors
;если установлено для всех
SetShellVarContext all
StrCpy $0 0
${xml::LoadFile} "$APPDATA\Microsoft\FSX\exe.xml" $0
loop:
${xml::FindNextElement} "Name" $0 $1
${xml::GetText} $1 $2
${If} $1 == "UT2"
MessageBox MB_OK "$1 найден"
Goto end
${EndIf}
Goto loop
${xml::FindCloseElement}
${xml::Unload}
end:
SectionEnd
2. Если в cfg не найдено, запись туда.
Слишком, по-моему, путано написано
Function Read
StrCpy $R0 $9 15
${If} $R0 == "SimObjectPaths."
InTop $int $int + 1
${EndIf}
Push $0
FunctionEnd
Section
;если установлено для текущего пользователя
IfFileExists "$APPDATA\Microsoft\FSX\fsx.cfg" 0 NotFiles
StrCpy $int 0
${FileReadFromEnd} "$APPDATA\Microsoft\FSX\fsx.cfg" "Read"
${if} ${Errors}
MessageBox mb_ok "CFG файл не найден"
${Else}
${For} $0 1 $int
ReadINIStr $1 "$APPDATA\Microsoft\FSX\fsx.cfg" "main" "SimObjectPaths.$0"
${Next}
${EndIf}
InTop $0 $0 - 1
WriteINIStr "$APPDATA\Microsoft\FSX\fsx.cfg" main "SimObjectPaths.$0" "SimObjects\UT2 Aircraft"
Goto Done
NotFiles:
; если установлено в папку для всех пользователей
SetShellVarContext all
IfFileExists "$APPDATA\Microsoft\FSX\fsx.cfg" 0 NotFiles2
StrCpy $int 0
${FileReadFromEnd} "$APPDATA\Microsoft\FSX\fsx.cfg" "Read"
${if} ${Errors}
MessageBox mb_ok "CFG файл не найден"
${Else}
${For} $0 1 $int
ReadINIStr $1 "$APPDATA\Microsoft\FSX\fsx.cfg" "main" "SimObjectPaths.$0"
${Next}
${EndIf}
InTop $0 $0 - 1
WriteINIStr "$APPDATA\Microsoft\FSX\fsx.cfg" main "SimObjectPaths.$0" "SimObjects\UT2 Aircraft"
Goto Done
NotFiles2:
MessageBox MB_OK "CFG файл не найден"
Done:
SectionEnd
3. если в xml не найдено, запись туда
Section
SetOutPath "$INSTDIR"
GetFullPathName $ID ..
${xml::LoadFile} "$APPDATA\Microsoft\FSX\exe.xml" $0
${xml::GotoPath} "/SimBase.Document" $0
${xml::CreateNode} <Launch.Addon></Launch.Addon> $1
${xml::InsertEndChild} "$1" $0
${xml::CreateNode} <Disabled>False</Disabled> $1
${xml::InsertEndChild} "$1" $0
${xml::CreateNode} <ManualLoad>False</ManualLoad> $2
${xml::InsertAfterNode} "$2" $1
${xml::CreateNode} <Name>UT2</Name> $3
${xml::InsertAfterNode} "$3" $2
${xml::CreateNode} '<Path>$ID\Flight One Software\Ultimate Traffic 2\UT2Services.exe</Path>' $4
${xml::InsertAfterNode} "$4" $3
${xml::CreateNode} <NewConsole>True</NewConsole> $5
${xml::InsertAfterNode} "$5" $4
${xml::SaveFile} "$APPDATA\Microsoft\FSX\test_sааaved.xml" $0
${xml::Unload} ; unload plugin
SectionEnd
4. Переименование и копирование папок. Здесь в принципе все ясно