22 Voix

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!

RépondrePositifNégatif

Sur l’Auteur

AvatarL’auteur n’a pas encore ajouté de brève description de profil.
Voir Profil

 

Sujets Connexes

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.