Вопрос Редактирование ini файла

[Ion]

Gde u menea asibka ne redktiruet fail pamaghite pajalusta vot kod

Спойлер

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

[files]
Source: "setup.ini"; DestDir: "{app}"; Flags: ignoreversion ; Components: triobar;

[Components]
Name: "triobar"; Description: "Triobar"; Flags: disablenouninstallwarning

[code]
function SetupEdit(SetupName, OldSetupValue, NewSetupValue: String): Boolean;
var
  Setup: TStringList;
  SetupSetStr: TArrayOfString;
  SetupDir, FileName, Tmp: String;
begin
  SetupDir:=ExpandConstant('{app}');
  FileName:=SetupDir + SetupName;
  If FileExists(FileName) then
  begin
  Setup:=TStringList.Create;
  try
    Setup.LoadFromFile(SetupDir + SetupName);
    Tmp:=Setup.Text;
    StringChange(Tmp, OldSetupValue, NewSetupValue);
    Setup.Text:=Tmp;
    Setup.SaveToFile(SetupDir + SetupName);
  finally
  Setup.Free;
  end;
  end;
end;

procedure triobar();
begin
  If IsComponentSelected('triobar') then
  begin
    SetupEdit('{app}\Setup.ini', 'DbName=localhost: D:\Incoming\TrioBarWork\_FreshBase,', 'DbName=localhost: {app}\FRONT.FDB,');
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then
  begin
    triobar();
  end;
end;

 

[Kotyarko_O]

Ion, для редактирования *.ini файлов используйте соответствующую секцию. Или специальные функции (поиск по справке в помощь).

 

[sergey3695]

Спойлер

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

[files]
Source: "setup.ini"; DestDir: "{app}"; Flags: ignoreversion ; Components: triobar;

[Components]
Name: "triobar"; Description: "Triobar"; Flags: disablenouninstallwarning

[code]
procedure RePlaceTextinFile(FilePath:string; find:string; replace1, replace2: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,replace1+'='+replace2);
  end;
end;
  S.SaveToFile(FilePath);
end;
end;

procedure triobar();
begin
  If IsComponentSelected('triobar') then
  begin
    RePlaceTextinFile(ExpandConstant('{app}\Setup.ini'),'DbName', 'DbName', 'localhost:'+AddBackslash(ExpandConstant('{app}'))+'FRONT.FDB,');
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then
  begin
    triobar();
  end;
end;

 

[asterix93]

Ion, для редактирования *.ini файлов используйте соответствующую секцию. Или специальные функции (поиск по справке в помощь).

spasiba zdelal

 

[asterix93]

Спойлер

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

[files]
Source: "setup.ini"; DestDir: "{app}"; Flags: ignoreversion ; Components: triobar;

[Components]
Name: "triobar"; Description: "Triobar"; Flags: disablenouninstallwarning

[code]
procedure RePlaceTextinFile(FilePath:string; find:string; replace1, replace2: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,replace1+'='+replace2);
  end;
end;
  S.SaveToFile(FilePath);
end;
end;

procedure triobar();
begin
  If IsComponentSelected('triobar') then
  begin
    RePlaceTextinFile(ExpandConstant('{app}\Setup.ini'),'DbName', 'DbName', 'localhost:'+AddBackslash(ExpandConstant('{app}'))+'FRONT.FDB,');
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then
  begin
    triobar();
  end;
end;

agromnaea spasiba

 

[sergey3695]

Ion, asterix93, тролль. Пиши нормально.