Código Delphi [-] var i: integer; begin with TStringList.Create do begin LoadFromFile('Doc.ini'); i:= IndexOf('Suppress=WindowedMode'); if i>=0 then begin Delete(i); SaveToFile('Doc2.ini'); end; free; end; end;
var i: integer; begin with TStringList.Create do begin LoadFromFile('Doc.ini'); i:= IndexOf('Suppress=WindowedMode'); if i>=0 then begin Delete(i); SaveToFile('Doc2.ini'); end; free; end; end;