Bonjour à tous,
Lorsque je quitte mon application, j'enregistre mes paramètres dans un fichier ini, tout marche bien.
Seulement, lorsque je met mon fichier en lecture seule (pour les tests, il faut prévoir tous les cas), il me met un exception du type einouterror (E/S 103) mais je n'arrive pas à la contourner, il refuse d'aller plus loin et je ne peut donc pas fermer mon application.
En clair, si je ne peux pas écrire dans le fichier, c pas grave, j'aimerais afficher un message et continuer mon traitement (c'est à dire: fermer l'application).
Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 cheminComplet := IncludeTrailingPathDelimiter(ExtractFilePath(Application.exename))+nomFicParams; try AssignFile(fd,cheminComplet); try Rewrite(fd); Writeln(fd,'[CHEMIN_DESTINATION]'+sLineBreak+cheminFic); except on EInOutError do begin // Il passe bien par la, j'ai mon message ShowMessage('Impossible d''écrire dans le fichier de paramètres'); raise; end; end; finally CloseFile(fd); end;
Partager