anchor.diff:      property Chemin_Local: String read GetChemin_Local write SetChemin_Local;
       function Chemin_Local_Program_Files( _NomApplication: String): String;
       function Chemin_Local_from_NomApplication( _NomApplication: String): String;
  +  //OS
  +  public
  +    os: String;
  +  //Utilitaires
  +  public
  +    function Assure_String( _iniKey: String; _iniDefault: String= ''): String;
     end;
   
   var
  
positive.code:   INIFiles;
  
  type
   TEXE_INIFile
   =
    class( TINIFile)
    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;
  
      procedure ValueList_to_Section( Section: String; ValueList: TStrings);
      procedure Section_to_ValueList(Section: String; ValueList: TStrings);
    //Mode autonome
  
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
  