Bonjour,
Actuellement, mon application gère les erreurs de chargements de fichiers

Pour ce faire, j’indique des informations via :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
ShowMessage("Erreur!\nNous vous demandons de bien vouloir reinstallé l'application car il manque le fichier\n\n"+ Chemin +" inexistant");


Or cette boite de dialogue me pose un petit problème, il n’y a pas d’icône d’erreur
Par quoi je pourrais remplacer ce code pour qu’il y ais un point d’exclamation ou une autre icône ?

Actuellement les messages d’erreurs sont dans une fonction.

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
16
17
18
19
20
 
//Fonction qui vérifie les fichiers ressources et leurs emplacements.
bool __fastcall TFiche1::PresenceFichier(AnsiString Chemin)
{
   //Test la présence du fichier.
   if(FileExists(Chemin))
   {
      //Le fichier existe.
      return true;
   }
   else
   {
      //Renvoie un message d'erreur.
      ShowMessage("Erreur!\nNous vous demandons de bien vouloir reinstaller l'application car il manque le fichier\n\n"+ Chemin +" inexistant");
 
      //Ferme l'application.
      Application->Terminate();
      return false;
   }
}

Y a-t-il des complication du fait de la position dans le programme ?

Je vous remercie infiniment pour vos réponses.

Cordialement.