[sergey3695]

Dodakaedr, да я специально не стал так делать, чтоб человек сам отредактировал, за одно разобрался бы. Ну да ладно...

[StongCool]

Вписал код, изменения нигде не заметил.

Мне именно в этом окошке нужно.

Давно давно, я нашел команду(уже не помню какую) строка переносилась как надо.

Примерно MsgBox('RePacked by Evilboy', mbInformation, mb_Ok); так: MsgBox('RePacked by Evilboy' ??? '- вырезано бла бла' ??? 'Блабла', mbInformation, mb_Ok);

Где вопросы там знак должен быть, почему то мне хочется вставить + но это не он.

[palsn2000]

sergey3695, Спасибо за

код

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: config.ini; DestDir: {app}; Flags: ignoreversion;

[Types]
Name: full; Description: Полная установка; Flags: iscustom;

[Components]
Name: Comp1; Description: "Запись в config.lua"; Flags: checkablealone; Types: Full;

[code_]
var
  s: string;

function DoubleSlash(S: String): String;
var i: Integer;
begin
Result:='';
  while Length(S)>0 do begin
    i:=Pos('\', S);
    if i>0 then begin
      Result:= Result+Copy(S, 1, i-1)+'\\';
      Delete(S, 1, i);
    end else begin
      Result:= Result+S;
      SetLength(S, 0);
    end;;
  end;
end;

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TStringList;
  i : Integer;
begin
if FileExists(FilePath) then begin
  S:=tstringlist.create;
  S.LoadFromFile(FilePath);
for i := 0 to S.Count-1 do
begin
if S.Names[i]=find then
begin
  S.Delete(i);
  S.Insert(i,find+'='+replace);
end;
end;
  S.SaveToFile(FilePath);
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
if WizardForm.ComponentsList.Checked[0] then
begin
  s:=  '"\"'+DoubleSlash(ExpandConstant('{app}'))+'\""';
  RePlaceTextinFile(ExpandConstant('{app}\config.ini'),'Path to Program',AddQuotes(s));
end;
end;
end;

Но вот какое дело: в коде используется замена текста
s:= '"\"'+DoubleSlash(ExpandConstant('{app}'))+'\""';
RePlaceTextinFile(ExpandConstant('{app}\config.ini'),'Path to Program',AddQuotes(s));

а для моей программы вместо 'Path to Program' приходится писать '--This file uses UTF8 encuding without BOM-- Path to Program'
а вот это самое '--This file uses UTF8 encuding without BOM-- Path to Program=' в файле config.lua имеет не совсем простой текстовый формат (если скопировать в ворд то там эта одна строка распадается на три строки) и после работы скрипта Инно
мой новый файл config.lua также разваливается на три строки и ничего в путь не дописывается.

Вопрос: можно ли как нибудь заставить инно не переписывать всё вместе с --This file uses UTF8 encuding without BOM-- Path to Program=' , а только добавить к нему 'DoubleSlash(ExpandConstant('{app}'))+'\""' сам я этого сделать не могу, так как в программировании даже не 0, а наверно -1

[Dodakaedr]

palsn2000, Вы это смотрели http://forum.oszone.net/post-2454120-2270.html

[StongCool]

Dodakaedr, немного покопался...

Вот это команда с которой я работал давно(Про неё я и спрашива) +#13#10+

Код:

procedure logoOnClick(Sender: TObject);
begin
   MsgBox('RePacked by блабла'+#13#10+ '- ничего не вырез....', mbInformation, mb_Ok);
end;

[palsn2000]

sergey3695, Dodakaedr, Спасибо за потраченное время, со всем разобрался, последний вопрос снимается - всё оказалось намного проще: строка '--This file uses UTF8 encuding without BOM-- Path to Program=' в Ворде распадается не на три, а на четыре - и всё приходит в логический вид:
--This file uses UTF8 encuding without BOM

-- Path to
Program=

В итоге 1, 2(пустая) и 3 строки вообще необязательны, а библиотека работает только со строкой 'Program=' ( проверил вручную) сейчас попробую реализовать в Инно.

Ещё раз всем спасибо.

[palsn2000]

В итоге выложу то, что у меня получилось - может кому-то пригодится:

Код

Код:

[_Code_]
//Дописывание произвольной информации в строку текстового файда (любого)
var
  s: string;
// замена одинарного слэша \ на двойной \\ в пути к файлу
function DoubleSlash(S: String): String;
var i: Integer;
begin
Result:='';
  while Length(S)>0 do begin
    i:=Pos('\', S);
    if i>0 then begin
      Result:= Result+Copy(S, 1, i-1)+'\\';
      Delete(S, 1, i);
    end else begin
      Result:= Result+S;
      SetLength(S, 0);
    end;;
  end;
end;
// конец замена одинарного слэша \ на двойной \\ в пути к файлу

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TStringList;
  i : Integer;
begin
if FileExists(FilePath) then begin
  S:=tstringlist.create;
  S.LoadFromFile(FilePath);
for i := 0 to S.Count-1 do
begin
if S.Names[i]=find then
begin
  S.Delete(i);
  S.Insert(i,find+'='+replace);
end;
end;
  S.SaveToFile(FilePath);
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
// 'Component_5\integrate' - Это имя необходимого компонента в секции [Components]
if (IsComponentSelected('Component_5\integrate') = True) then
begin
// +'\\My Prog'+'\\Prog.exe'+'\""' - Это путь к exe программы c подпапкой и самим exe, двойной слэш и слэш с кавычками в начале и конце - необходимость в данном частном случае.
  s:=  '"\"'+DoubleSlash(ExpandConstant('{app}'))+'\\My Prog'+'\\Prog.exe'+'\""'
// 'Program' - это текст в строке которую надо заполнить, '{app}\My Prog\DllFolder\config.lua' - путь к файлу, который редактируем
  RePlaceTextinFile(ExpandConstant('{app}\My Prog\DllFolder\config.lua'),'Program',AddQuotes(s));
end;
end;
end;
//конец Дописывание произвольной информации в строку текстового файда (любого)

На выходе получаем в файле по адресу D:\My Prog\DllFolder\config.lua из имеющегося Program=
Program="\D:\\My Prog\\Prog.exe\"" (Вместо D: будет полный путь установки {app}) и всё это будет выполняться только при выборе компонента (в данном случае Component_5\integrate).

[sergey3695]

StongCool, слепота

[ShadeUa]

Здравствуйте. Подскажите пожалуйста , добавить в инстал новую страницу таких же размеров как предыдущие , и так же с возможность слайд шоу ?

[Dodakaedr]

ShadeUa, Создание новой странички

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
var
  Page: TWizardPage;


procedure InitializeWizard();
begin
 Page := CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
end;

и так же с возможность слайд шоу ? »

В смысле? Какой слайдшоу?