Message windows et lecteur cd

[Résolu]
Signaler
Messages postés
67
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
19 janvier 2009
-
Messages postés
67
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
19 janvier 2009
-
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.
 
merci.

4 réponses

Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
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;

Bonne prog'
Messages postés
3833
Date d'inscription
dimanche 12 décembre 2004
Statut
Modérateur
Dernière intervention
11 juin 2021
124
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.
Messages postés
67
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
19 janvier 2009

j'ai déja essayé mais l'erreur s'affiche quand méme! comment faire
Messages postés
67
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
19 janvier 2009

merci beaucoup tout fonctionne nickel.