Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата Николай_Николаич@vk:
в нем строчки к примеру такие. »
А вот какой файл... ну тогда так:
Код: Выделить весь код
[setup]
appname=app
appvername=app 1.0
DefaultDirName={pf}\app

[Code]
procedure Changestring;
var
s: string;
begin
s := +#13#10+ '[item]' +#13#10+ '2' +#13#10+ 'farbschema_tex1' +#13#10+ 'main2.bmp';
  if FileExists(ExpandConstant('{app}\file.cti')) then
  SaveStringToFile(ExpandConstant('{app}\file.cti'), s, True);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then Changestring;
end;

-------
Inno Setup 5 Ultra Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:40, 07-05-2015 | #583