ECRIRE DANS MSDOS.SYSRésolu

Question

Malgr&#233; plusieurs essais je n'arrive pas &#233;crire dans le fichier
MSDOS.SYS. Voici la proc&#233;dure utilis&#233;e (voir ci-dessous). A l'&#233;x&#233;cution
j'ai un message me disant 'impossible d'&#233;crire dans c:\MSDOS.sys'. Je
ne vois pas l'erreur.... Je modifie pourtant les attributs du
fichier....

Merci. 



procedure pilote_disk_compress;

var attrib :byte;

begin

attrib:=FileGetAttr('c:\msdos.sys');

attrib:=attrib and not faReadOnly and not fahidden and not fasysfile;

filesetattr('c:\msdos.sys',attrib);

fichierini := Tinifile.Create('c:\msdos.sys');

if form1.CheckBox_pilote_disk_compress.State=cbChecked then

        begin

               
fichierini.WriteString('Options','DBLSpace','0');

               
fichierini := Tinifile.Create('c:\msdos.sys');

               
fichierini.WriteString('Options','DRVSpace','0');

        end

else

        begin

               
fichierini.WriteString('Options','DBLSpace','1');

               
fichierini := Tinifile.Create('c:\msdos.sys');

               
fichierini.WriteString('Options','DRVSpace','1');

        end;

attrib:=FileGetAttr('c:\msdos.sys');

attrib:=attrib or faReadOnly or fahidden or fasysfile;

filesetattr('c:\msdos.sys',attrib);

pilote_disk_compresse:=false;

end;

cs_grandvizir · Accepted Answer

Si on r&#233;sume, tu encha&#238;nes grosso-modo (qu'elle que soit la condition) ceci :
fichierini :=  Tinifile.Create('c:\msdos.sys');
fichierini.WriteString('Options','DBLSpace','0');
fichierini := Tinifile.Create('c:\msdos.sys');


Sur le Create, le fichier est ouvert, et tu le r&#233;ouvres 2 lignes apr&#232;s : impossible !


TIniFile est une classe, et doit &#234;tre lib&#233;r&#233;e. Je te donne un code bien plus simple qui devrait effacer les horribles redondances programmistiques que j'ai vues dans ton code (en plus, ce code est plus court) :


 procedure  pilote_disk_compress;
const FN  = 'c:\msdos.sys';
      ISection =  'Options';
 var    Cle : char;
begin
  filesetattr(FN,FileGetAttr(FN) and not faReadOnly and not fahidden and not fasysfile);
  Cle: =Chr(Ord('0') + Ord(not form1.CheckBox_pilote_disk_compress.Checked));
  with TInifile.Create(FN) do //Ouverture...
    try
      WriteString(ISection,'DBLSpace',Cle);
      WriteString(ISection,'DRVSpace',Cle);
    finally
      Free; //... Fermeture
    end;
  filesetattr(FN,FileGetAttr(FN) or faReadOnly or fahidden or fasysfile);
  pilote_disk_compresse:= false;
 end ;


Je t'emb&#234;te avec la ligne Cle: =... mais c'est pour voir comment des conditions peuvent &#234;tre compact&#233;es.

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

mikesvl · Answer

Merci pour tout.... la solution &#224; mon probl&#232;me et la belle le&#231;on de programmation.

ECRIRE DANS MSDOS.SYS

2 réponses

Votre réponse

Discussions similaires