[InnoSetup] Wie INI-Datei abändern ?

[sh17]

Man kann ja bei InnoSetup auch script-Code einfügen. Hier ein kleines Beispiel für nach der Installation:

[code=delphi]

Code:

var
  FinishedInstall: Boolean;

procedure DeInitializeSetup();
var
  FileName,NewFileName: String;
begin
  if not FinishedInstall then exit;

  NewFileName := ExpandConstant('{app}')+'\RSC\CORE\BACKGROUND.JPG';
  FileName := ExpandConstant('{src}')+'\BACKGROUND.JPG';
  if FileExists(FileName) then
    FileCopy(FileName,NewFileName,false);
  
  NewFileName := ExpandConstant('{app}')+'\ETC\CONTACT.INI';
  FileName := ExpandConstant('{src}')+'\CONTACT.INI';
  if FileExists(FileName) then
    FileCopy(FileName,NewFileName,false);
end;

procedure CurStepChanged(CurStep: Integer);
begin
  if CurStep = csFinished then
    FinishedInstall := True;
end;

Nun gibts da auch Ini-Funktionen. Näheres findest Du in der InnoSetup-Hilfe

Delphi-Quellcode:

function IniKeyExists(const Section, Key, Filename: String): Boolean; 
function IsIniSectionEmpty(const Section, Filename: String): Boolean; 

function GetIniBool(const Section, Key: String; const Default: Boolean; const Filename: String): Boolean 
function GetIniInt(const Section, Key: String; const Default, Min, Max: Longint; const Filename: String): Longint; 
function GetIniString(const Section, Key, Default, Filename: String): String; 

function SetIniBool(const Section, Key: String; const Value: Boolean; const Filename: String): Boolean; 
function SetIniInt(const Section, Key: String; const Value: Longint; const Filename: String): Boolean; 
function SetIniString(const Section, Key, Value, Filename: String): Boolean; 

procedure DeleteIniSection(const Section, Filename: String); 
procedure DeleteIniEntry(const Section, Key, Filename: String);