Шаг сборки инсталлятора Inno Setup в GA #51
There are no files selected for viewing
| Original file line number | Diff line number | Diff line change | ||||
|---|---|---|---|---|---|---|
| @@ -0,0 +1,234 @@ | ||||||
| ; Inno Setup script for OVM (OneScript Version Manager) | ||||||
| ; Installs ovm.exe to %LOCALAPPDATA%\ovm and adds it to user PATH | ||||||
|
|
||||||
| #define MyAppName "OneScript Version Manager" | ||||||
| ; MyAppVersion is passed from GitHub Actions via /D flag, extracting from packagedef | ||||||
| ; Default value is used for local builds | ||||||
| #ifndef MyAppVersion | ||||||
| #define MyAppVersion "1.0.0" | ||||||
| #endif | ||||||
| #define MyAppPublisher "oscript-library" | ||||||
| #define MyAppURL "https://github.com/oscript-library/ovm" | ||||||
| #define MyAppExeName "ovm.exe" | ||||||
|
|
||||||
| [Setup] | ||||||
| ; NOTE: The value of AppId uniquely identifies this application. | ||||||
| AppId={{8E5F4A2B-9C3D-4F1E-A6B8-2D7C9E4F1A3B} | ||||||
|
Comment on lines
+14
to
+16
There was a problem hiding this comment. Критично: Возможный фикс AppId={{8E5F4A2B-9C3D-4F1E-A6B8-2D7C9E4F1A3B}
+; ожидание: литерал "{GUID}" => экранирование "{" и "}" удвоением
+; AppId={{8E5F4A2B-9C3D-4F1E-A6B8-2D7C9E4F1A3B}}
🤖 Prompt for AI Agents
Member
Author
There was a problem hiding this comment. Это частый паттерн использования appId и экранирования appId. Не ошибка There was a problem hiding this comment. 🧩 Analysis chain🌐 Web query: 💡 Result: Short answer: In [Setup] AppId braces must be doubled in the script because single { } starts an Inno constant. Use {{GUID}} (and }} for the close) or generate the doubled-braces string via the preprocessor. Example:
Notes: Pascal Script and registry code expect the single-brace form (e.g. "{GUID}"), so only the [Setup] directive needs doubled braces in the script. (stackoverflow.com) Citations: 🌐 Web query: 💡 Result: Short answer: In [Setup] directives (like AppId) Inno Setup treats "{" as the start of a constant, so you must double the opening brace to get a literal "{". The closing brace does not need doubling. Therefore to get an AppId value of {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} write it in the script as: AppId={{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} (That produces a single leading "{" and a single trailing "}" at runtime.) [1][2] References:
@EvilBeaver, вы абсолютно правы, приношу извинения за ошибочный комментарий! Согласно документации Inno Setup, в секции Спасибо за разъяснение! ✏️ Learnings added
|
||||||
| AppName={#MyAppName} | ||||||
| AppVersion={#MyAppVersion} | ||||||
| AppPublisher={#MyAppPublisher} | ||||||
| AppPublisherURL={#MyAppURL} | ||||||
| AppSupportURL={#MyAppURL} | ||||||
| AppUpdatesURL={#MyAppURL} | ||||||
| DefaultDirName={localappdata}\ovm | ||||||
| DisableProgramGroupPage=yes | ||||||
| OutputDir=..\dist | ||||||
| OutputBaseFilename=ovm-setup | ||||||
| Compression=lzma | ||||||
| SolidCompression=yes | ||||||
| ; Per-user installation (no admin rights required) | ||||||
| PrivilegesRequired=lowest | ||||||
| PrivilegesRequiredOverridesAllowed=commandline | ||||||
| ; Notify Windows about environment changes | ||||||
| ChangesEnvironment=yes | ||||||
| ArchitecturesInstallIn64BitMode=x64 | ||||||
| UninstallDisplayIcon={app}\{#MyAppExeName} | ||||||
|
|
||||||
| [Languages] | ||||||
| Name: "english"; MessagesFile: "compiler:Default.isl" | ||||||
| Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" | ||||||
|
|
||||||
| [Files] | ||||||
| Source: "..\ovm.exe"; DestDir: "{app}"; Flags: ignoreversion | ||||||
|
There was a problem hiding this comment. The source file path uses a relative path '..\ovm.exe' which assumes the script is being run from the install/ directory. The GitHub Actions workflow runs the Inno Setup compiler from the workspace root (/work), so this path should correctly resolve to ovm.exe in the parent directory. However, consider using an absolute path or verifying that this relative path works correctly with the Docker container's working directory.
Suggested change
|
||||||
|
|
||||||
| [Code] | ||||||
| const | ||||||
| EnvironmentKey = 'Environment'; | ||||||
|
|
||||||
| // Удаляет завершающий обратный слеш из пути, если он есть | ||||||
| function NormalizePath(Path: string): string; | ||||||
| begin | ||||||
| Result := Path; | ||||||
| if (Length(Result) > 0) and (Result[Length(Result)] = '\') then | ||||||
| Result := Copy(Result, 1, Length(Result) - 1); | ||||||
| end; | ||||||
|
|
||||||
| // Проверяет, существует ли путь в переменной PATH | ||||||
| // Учитывает варианты с завершающим слешем и без него | ||||||
| function PathExistsInEnv(Path: string): Boolean; | ||||||
| var | ||||||
| EnvPath: string; | ||||||
| NormalizedPath: string; | ||||||
| SearchIn: string; | ||||||
| begin | ||||||
| Result := False; | ||||||
|
|
||||||
| // Нормализуем ВХОДНОЙ путь для единообразия | ||||||
| NormalizedPath := NormalizePath(Path); | ||||||
|
|
||||||
| // Получаем PATH из реестра (НЕ нормализуем — там могут быть пути с backslash) | ||||||
| if not RegQueryStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', EnvPath) then | ||||||
| exit; | ||||||
|
|
||||||
| // Добавляем разделители по краям для корректного поиска подстроки | ||||||
| SearchIn := ';' + Uppercase(EnvPath) + ';'; | ||||||
|
|
||||||
| // Ищем путь в EnvPath в двух вариантах: | ||||||
| // 1. Без trailing backslash (C:\MyApp) | ||||||
| // 2. С trailing backslash (C:\MyApp\) — на случай, если так записано в реестре | ||||||
| if Pos(';' + Uppercase(NormalizedPath) + ';', SearchIn) > 0 then | ||||||
| Result := True | ||||||
| else if Pos(';' + Uppercase(NormalizedPath) + '\;', SearchIn) > 0 then | ||||||
| Result := True; | ||||||
| end; | ||||||
|
|
||||||
| // Добавляет путь в переменную окружения PATH | ||||||
| // Возвращает True при успешном добавлении | ||||||
| function AddToPath(Path: string): Boolean; | ||||||
| var | ||||||
| EnvPath: string; | ||||||
| NewPath: string; | ||||||
| NormalizedPath: string; | ||||||
| begin | ||||||
| Result := False; | ||||||
| NormalizedPath := NormalizePath(Path); | ||||||
|
|
||||||
| // Проверяем, есть ли путь уже в PATH | ||||||
| if PathExistsInEnv(NormalizedPath) then | ||||||
| begin | ||||||
| Log('Путь уже существует в PATH: ' + NormalizedPath); | ||||||
| Result := True; | ||||||
| exit; | ||||||
| end; | ||||||
|
|
||||||
| // Получаем текущее значение PATH | ||||||
| if RegQueryStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', EnvPath) then | ||||||
| begin | ||||||
| // Добавляем разделитель, если PATH не заканчивается на него | ||||||
| if Length(EnvPath) = 0 then | ||||||
| NewPath := NormalizedPath | ||||||
| else if EnvPath[Length(EnvPath)] = ';' then | ||||||
| NewPath := EnvPath + NormalizedPath | ||||||
| else | ||||||
| NewPath := EnvPath + ';' + NormalizedPath; | ||||||
| end | ||||||
| else | ||||||
| begin | ||||||
| // PATH не существует, создаём новый | ||||||
| NewPath := NormalizedPath; | ||||||
| end; | ||||||
|
|
||||||
| // Записываем обновлённый PATH в реестр | ||||||
| if RegWriteStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', NewPath) then | ||||||
| begin | ||||||
| Log('Добавлено в PATH: ' + NormalizedPath); | ||||||
| Result := True; | ||||||
| end | ||||||
| else | ||||||
| Log('Ошибка при добавлении в PATH: ' + NormalizedPath); | ||||||
| end; | ||||||
|
Comment on lines
+85
to
+129
There was a problem hiding this comment. Добавьте проверку лимита длины PATH и обработку ошибок для пользователя. В функции
💡 Рекомендации по улучшениюДобавьте проверку длины PATH перед записью: // В функции AddToPath, перед строкой 122:
const
MAX_PATH_LENGTH = 2047; // Консервативный лимит для совместимости
// После строки 119 (перед записью):
if Length(NewPath) > MAX_PATH_LENGTH then
begin
Log('Ошибка: превышен лимит длины PATH (' + IntToStr(Length(NewPath)) + ' символов)');
MsgBox('Не удалось добавить путь в PATH: превышен лимит длины переменной окружения.' + #13#10 +
'Пожалуйста, добавьте путь вручную: ' + NormalizedPath,
mbError, MB_OK);
exit;
end;Добавьте видимое предупреждение при ошибке записи (замените строки 127-128): else
begin
Log('Ошибка при добавлении в PATH: ' + NormalizedPath);
MsgBox('Не удалось автоматически добавить путь в PATH.' + #13#10 +
'Пожалуйста, добавьте путь вручную: ' + NormalizedPath,
mbError, MB_OK);
end;🤖 Prompt for AI AgentsThere was a problem hiding this comment. @EvilBeaver, понял, принял к сведению вашу оценку. Спасибо за ответ! |
||||||
|
|
||||||
| // Удаляет путь из переменной окружения PATH | ||||||
| // Использует TStringList для парсинга и ручную сборку строки для записи, | ||||||
| // чтобы избежать проблемы с кавычками вокруг путей с пробелами | ||||||
| function RemoveFromPath(Path: string): Boolean; | ||||||
| var | ||||||
| EnvPath: string; | ||||||
| NewPath: string; | ||||||
| NormalizedPath: string; | ||||||
| PathList: TStringList; | ||||||
| PathItem: string; | ||||||
| NormalizedItem: string; | ||||||
| i: Integer; | ||||||
| Removed: Boolean; | ||||||
| begin | ||||||
| Result := False; | ||||||
| Removed := False; | ||||||
| NormalizedPath := NormalizePath(Path); | ||||||
|
|
||||||
| // Получаем текущее значение PATH | ||||||
| if not RegQueryStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', EnvPath) then | ||||||
| begin | ||||||
| Log('PATH не найден в реестре'); | ||||||
| exit; | ||||||
| end; | ||||||
|
|
||||||
| PathList := TStringList.Create; | ||||||
| try | ||||||
| // Разбираем PATH на элементы | ||||||
| PathList.Delimiter := ';'; | ||||||
| PathList.StrictDelimiter := True; | ||||||
| PathList.DelimitedText := EnvPath; | ||||||
|
|
||||||
| // Удаляем наш путь и пустые элементы | ||||||
| for i := PathList.Count - 1 downto 0 do | ||||||
| begin | ||||||
| PathItem := PathList[i]; | ||||||
|
|
||||||
| // Удаляем пустые элементы (защита от ";;" в PATH) | ||||||
| if Trim(PathItem) = '' then | ||||||
| begin | ||||||
| PathList.Delete(i); | ||||||
| Continue; | ||||||
| end; | ||||||
|
|
||||||
| // Нормализуем для сравнения (убираем завершающий слеш) | ||||||
| NormalizedItem := NormalizePath(PathItem); | ||||||
|
|
||||||
| // Сравниваем без учёта регистра | ||||||
| if Uppercase(NormalizedItem) = Uppercase(NormalizedPath) then | ||||||
| begin | ||||||
| Log('Удалено из PATH: ' + PathItem); | ||||||
| PathList.Delete(i); | ||||||
| Removed := True; | ||||||
| end; | ||||||
| end; | ||||||
|
|
||||||
| // Собираем строку вручную, чтобы избежать добавления кавычек | ||||||
| // (TStringList.DelimitedText добавляет кавычки к путям с пробелами) | ||||||
| NewPath := ''; | ||||||
| for i := 0 to PathList.Count - 1 do | ||||||
| begin | ||||||
| if i > 0 then | ||||||
| NewPath := NewPath + ';'; | ||||||
| NewPath := NewPath + PathList[i]; | ||||||
| end; | ||||||
|
|
||||||
| // Записываем обновлённый PATH в реестр | ||||||
| if RegWriteStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', NewPath) then | ||||||
| begin | ||||||
| if Removed then | ||||||
| Log('PATH успешно обновлён') | ||||||
| else | ||||||
| Log('Путь не найден в PATH: ' + NormalizedPath); | ||||||
| Result := True; | ||||||
| end | ||||||
| else | ||||||
| Log('Ошибка при обновлении PATH'); | ||||||
| finally | ||||||
| PathList.Free; | ||||||
| end; | ||||||
| end; | ||||||
|
Comment on lines
+131
to
+211
There was a problem hiding this comment. Добавьте обработку ошибок с обратной связью для пользователя. Функция
Хорошо реализовано: Ручная сборка строки (строки 187-195) корректно избегает проблемы с добавлением кавычек функцией 💡 Рекомендация по улучшениюДобавьте видимое предупреждение при ошибке (замените строку 207): else
begin
Log('Ошибка при обновлении PATH');
MsgBox('Не удалось автоматически удалить путь из PATH.' + #13#10 +
'При необходимости удалите путь вручную: ' + NormalizedPath,
mbError, MB_OK);
end; |
||||||
|
|
||||||
| procedure CurStepChanged(CurStep: TSetupStep); | ||||||
| var | ||||||
| AppPath: string; | ||||||
| begin | ||||||
| if CurStep = ssPostInstall then | ||||||
| begin | ||||||
| AppPath := ExpandConstant('{app}'); | ||||||
| AddToPath(AppPath); | ||||||
| end; | ||||||
| end; | ||||||
|
|
||||||
| procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); | ||||||
| var | ||||||
| AppPath: string; | ||||||
| begin | ||||||
| if CurUninstallStep = usPostUninstall then | ||||||
| begin | ||||||
| AppPath := ExpandConstant('{app}'); | ||||||
| RemoveFromPath(AppPath); | ||||||
| end; | ||||||
| end; | ||||||
|
|
||||||
Uh oh!
There was an error while loading. Please reload this page.