Read read-only configuration files.

packages/ide/fpswitch.pas

@@ -1010,11 +1010,15 @@ var
   s : string;
   res : boolean;
   OldSwitchesMode,i : TSwitchMode;
+  oFileMode : byte;
 begin
+  oFileMode:=FileMode;   {save file open mode}
+  FileMode:=0;           {Reset will open file in read only mode }
   assign(CfgFile,fn);
   {$I-}
    reset(CfgFile);
   {$I+}
+  FileMode:=oFileMode;   {restore file open mode}
   if ioresult<>0 then
    begin
      SetDefaultSwitches;

packages/ide/wini.pas

@@ -437,12 +437,16 @@ var f: text;
     S,TS: string;
     P: PINISection;
     I: integer;
+    oFileMode : byte;
 begin
   New(P, Init(MainSectionName));
   Sections^.Insert(P);
+  oFileMode:=FileMode;   {save file open mode}
+  FileMode:=0;           {Reset will open file in read only mode }
   Assign(f,FileName^);
 {$I-}
   Reset(f);
+  FileMode:=oFileMode;   {restore file open mode}
   OK:=EatIO=0;
   while OK and (Eof(f)=false) do
     begin