DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE
Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion de Windows / Fonctions Graveur de CD et DVD
  • Effacement des fichiers d'un CD
GraveurEfface (Exemple)
Effacement des fichiers d'un CD
WINDEVWindowsCode Utilisateur (MCU) L'exemple suivant permet d'effacer complètement les fichiers présents sur le CD. Le tiroir du graveur s'ouvrira automatiquement à la fin de l'effacement. La procédure "ProcEffacementCD" est appelée régulièrement lors de l'effacement. Les paramètres de cette procédure sont renseignés automatiquement.
// Effacer complètement les fichiers présents sur le CD
// Le tiroir du graveur s'ouvrira automatiquement Ã  la fin de l'effacement
ResEfface est un booléen 
ResEfface = GraveurEfface(graveurEffacementComplet + graveurEjecteAuto, ProcEffacementCD)
// Erreur rencontrée ? 
SI ResEfface = Faux ALORS 
// Affichage de l'erreur 
Erreur(ErreurInfo(errMessage)) 
SINON 
// Effacement lancé
Info("Les fichiers vont Ãªtre effacés du CD")
FIN
// -- Procédure ProcEffacementCD 
// Cette procédure est appelée régulièrement lors de l'effacement
// Les paramètres sont renseignés automatiquement
PROCÉDURE ProcEffacementCD(StatutEff, MessageEff, Param1)
// Evénement rencontré ?
SELON StatutEff
// L'effacement a Ã©té annulé
CAS graveurNotificationAbandon
SI OuiNon("Voulez-vous vraiment annuler l'effacement ?") ALORS
RENVOYER Vrai
FIN
RENVOYER Faux

// Erreur détectée
CAS graveurNotificationErreur
Erreur("Une erreur a Ã©té détectée", MessageEff)

// Effacement terminé
CAS graveurNotificationFinEffacement
SI Param1 = 0 ALORS
Info("Effacement du CD terminé")
SINON
Erreur("Erreur lors de l'effacement " + MessageEff)
FIN
FIN
Version minimum requise
  • Version 10
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale