anchor.diff:    INIFiles;
   
   type
  +
  + { TEXE_INIFile }
  +
    TEXE_INIFile
    =
     class( TINIFile)
  +  //Gestion du cycle de vie
  +  public
  +    constructor Create(const AFileName: string; AEscapeLineFeeds : Boolean = False); overload; override;
  +    destructor Destroy; override;
  +  //ToolTip
     private
       function GetToolTip(Index: String): Boolean;
       procedure SetToolTip(Index: String; Value: Boolean);
     public
       property ToolTip[ Index: String]: Boolean read GetToolTip write SetToolTip;
       procedure Reset_ToolTips;
  -
  + //ValueList
  + public
       procedure ValueList_to_Section( Section: String; ValueList: TStrings);
       procedure Section_to_ValueList(Section: String; ValueList: TStrings);
     //Mode autonome
  
positive.code: begin
       //Result:= Chemin_Local_Program_Files( _NomApplication);
       Result:= Chemin_Local;
  end;
  
  var
  
negative.code: end;
  
  { TEXE_INIFile }
  
  constructor TEXE_INIFile.Create( const AFileName: string; AEscapeLineFeeds: Boolean);
  begin
       inherited Create(AFileName, AEscapeLineFeeds);
       os
       :=
       {$IFDEF LINUX}
         'Linux.'
       {$ELSE}
         'Windows.'
       {$ENDIF};
  end;
  
  destructor TEXE_INIFile.Destroy;
  begin
       inherited Destroy;
  end;
  
  function TEXE_INIFile.GetToolTip(Index: String): Boolean;
  begin
  