Delphi: Renommer un Dossier
Tutoriel de Delphiain | 12/05/2021 à 19:19
Dans ce tutoriel, je voudrais vous montrer comment renommer un répertoire avec Delphi.
Nous utilisons la ShellApi de Windows pour cela, nous devons donc écrire l'unité ShellApi dans notre clause uses:
uses ShellApi;
Après cela, nous définissons une procédure appelée RenommerDossier, avec laquelle nous pouvons renommer le dossier «AncienDossier» en «NouveauDossier»:
procedure RenommerDossier(AncienDossier, NouveauDossier: string); var ShellInfo: TSHFileOpStruct; begin ShellInfo.Wnd := 0; ShellInfo.wFunc := FO_RENAME; ShellInfo.pFrom := PChar(AncienDossier); ShellInfo.pTo := PChar(NouveauDossier); SHFileOperation(ShellInfo); end;
Enfin, voici un éventuel appel de notre procédure. Ici, nous renommons le dossier «Dossier» en «NouveauNom»:
procedure TForm1.Button1Click(Sender: TObject); begin RenommerDossier('C:\Dossier', 'C:\NouveauNom'); end;
Amusez-vous avec les renommages!
Sur l’Auteur
L’auteur n’a pas encore ajouté de brève description de profil.
Voir Profil
Sujets Connexes
Renommer des Fichiers en ses Noms de Dossier
Tutoriel | 0 Commentaires
VirtualBox: Changer la Date et l'Heure
Tutoriel | 10 Commentaires
Lazarus: Détecter le Système d'Exploitation (Compiler Switch)
Tutoriel | 0 Commentaires
jQuery: Lire et Modifier les Valeurs d'Attributs Data
Tutoriel | 0 Commentaires
CSS: Comment inclure CSS dans HTML
Tutoriel | 0 Commentaires
Réparer des Fichiers Texte avec des Sauts de Ligne Mixtes
Tutoriel | 0 Commentaires
Lazarus: Charger Fichier en tant que Array d'Octets et Enregistrer Array d'Octets en tant que Fichier
Tutoriel | 0 Commentaires
Avis Important
Veuillez noter: Les contributions publiées sur askingbox.com sont des contributions d’utilisateurs et ne doivent pas remplacer les conseils d’un professionnel. Ils ne sont pas vérifiés par des indépendants et ne reflètent pas nécessairement l’opinion de askingbox.com. Apprendre encore plus.
Participer
Posez votre propre question ou écrivez votre propre article sur askingbox.com. Voici comment.