Форум программистов, компьютерный форум, киберфорум
Наши страницы
Инсталляторы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
jason32
0 / 0 / 0
Регистрация: 05.09.2016
Сообщений: 1
1

Inno Setup. Работа с файлами

05.09.2016, 05:51. Просмотров 1905. Ответов 2

Здравствуйте. Необходимо в скопированном файле File.txt найти значение "FromStr" и поменять его на "ToStr" Нагуглил следующий код, но почему-то он не работает, пробовал экспериментировать. Пожалуйста помогите найти ошибку. Дистрибутив inno setup v5.5.8-unicode.exe, ос windows 7

Код (Text):
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: "File.txt"; DestDir: "{app}\Files"; Flags: ignoreversion;

[Code]
var
UnicodeStr: string;
ANSIStr: AnsiString;
begin
LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
UnicodeStr := String(ANSIStr);
StringChangeEx(UnicodeStr, ExpandConstant('"FromStr"'), ExpandConstant('"ToStr"'), False)
SaveStringToFile('{app}\Files\File.txt', AnsiString(UnicodeStr), True);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.09.2016, 05:51
Ответы с готовыми решениями:

Inno Setup ИНСТАЛЯЦИЯ
Кто знает как работать с программой Inno Setup? Очень нужно сделать електронную книжку с...

Inno setup DefaultDirName
Всем привет. Почему при выборе директории добавляется директори "Новая папка" ??? Как...

Inno setup sfx архив
Доброго времени суток! Каким образом можно создать экзешник аналогичный sfx архиву? Т.е который...

Inno Setup несколько ярлыков
Доброго времени суток! Подскажите пожалуйста, возможно ли средствами InnoSetup реализовать такую...

Inno Setup текст в окне
Можно ли изменить тест то что выделено красным ? Хочу вместо этого другой текст написать

2
v_svitere
697 / 408 / 134
Регистрация: 03.06.2009
Сообщений: 1,190
Записей в блоге: 4
13.09.2016, 12:29 2
jason32, Вам надо, в секции [Code] описать функцию, которую Вы будете запускать в определенный момент.

Что-то вроде этого
[CODE]
Код
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{A37A6544-0ED5-4D53-B01F-88F308AC23F8}
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
AppendDefaultDirName=no
DefaultDirName={code:MyConst}
DisableDirPage=yes
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Code]
const
  DefaultDrive1='D:\';
  DefaultDrive2='C:\';
  AppFolder = 'Base\';
function MyConst(Param: string): String;

begin
    if DirExists(DefaultDrive1 + AppFolder)then begin
    result:=DefaultDrive1 + AppFolder ;
    end;
    if DirExists(DefaultDrive2 + AppFolder)then begin
    result:=DefaultDrive2 + AppFolder;
    end;

end;





[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent
[/CODE]
0
westerov
2 / 2 / 0
Регистрация: 18.11.2012
Сообщений: 42
02.01.2017, 04:15 3
Здравствуйте.
Возможен ли такой вариант распаковки, при котором перед началом
извлечения установщик согласно сценария сначала проверяет путь
и, если не находит его, то установка прекращается с заданным в
сценарии сообщением а если находит то извлекает в существующий?
Основной упор на то, чтобы НЕ извлекал, если путь не создан ранее.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2017, 04:15

Inno Setup иконка ярлыка
Name: "{group}\Counter-Stike"; Filename: "{app}\hl.exe"; WorkingDir: "{app}"; Parameters: -game...

Inno setup, ярлык в пуске
Добрый день. Я устанавливаю программу с правами администратора в локальную директорию, только для...

Inno Setup: модификация ключа реестра
Каким образом можно дописать в уже существующий ключ ещё данные? В реестре есть один ключ,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru