cs_neil
Messages postés67Date d'inscriptionlundi 12 mai 2003StatutMembreDernière intervention19 janvier 2009
-
23 mars 2007 à 14:40
cs_neil
Messages postés67Date d'inscriptionlundi 12 mai 2003StatutMembreDernière intervention19 janvier 2009
-
25 mars 2007 à 14:59
bonjours,
je voudrai savoir comment faire pour supprimer le message de windows lorsqu'on essaye d'acceder au lecteur de cd alors qu'il n'y a pas de cd.
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 24 mars 2007 à 22:30
Salut,
Il faut désactiver puis réactiver la gestion des erreurs au moment critique.
Par exemple, ici, j'essaye d'afficher un fichier txt dans un Memo. S'il n'y a pas de CD dans le lecteur, tu as le choix de gérer l'erreur comme tu l'entends :
procedure TForm1.Button1Click(Sender: TObject);
var ErrorMode: Word;
begin
ErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
try
Memo1.Lines.LoadFromFile('K:\Chemin\MonFichier.txt');
except
ShowMessage('Veuillez insérer le CD dans le lecteur');
end;
finally
SetErrorMode(ErrorMode);
end;
end;
cptpingu
Messages postés3837Date d'inscriptiondimanche 12 décembre 2004StatutModérateurDernière intervention28 mars 2023123 23 mars 2007 à 17:39
Si ton programme cree une erreur en essayant d'acceder au lecteur de
disque , tu peux masquer l'erreur avec un block "try .. except .. end".
Si tu ne met rien entre except et end, l'erreur sera silencieuse. Mais
il est vivement conseille de gerer proprement l'erreur.