Delphi: Cambiar el Nombre de una Carpeta

En este tutorial, me gustaría mostrarle cómo puede cambiar el nombre de un directorio con Delphi.

Estamos usando el ShellApi de Windows para esto, así que tenemos que escribir la unit ShellApi en nuestra cláusula uses:

uses
   ShellApi;

Después de eso, definimos un procedimiento llamado RenombrarCarpeta, con el cual podemos renombrar la carpeta "CarpetaAntigua" a "CarpetaNueva":

procedure RenombrarCarpeta(CarpetaAntigua, CarpetaNueva: string);
var
   ShellInfo: TSHFileOpStruct;
begin
   ShellInfo.Wnd   := 0;
   ShellInfo.wFunc := FO_RENAME;
   ShellInfo.pFrom := PChar(CarpetaAntigua);
   ShellInfo.pTo   := PChar(CarpetaNueva);
 
   SHFileOperation(ShellInfo);
end;

Finalmente, aquí hay una posible llamada de nuestro procedimiento. Aquí estamos cambiando el nombre de la carpeta "Carpeta" a "NuevoNombre":

procedure TForm1.Button1Click(Sender: TObject);
begin
   RenombrarCarpeta('C:\Carpeta', 'C:\NuevoNombre');
end;

¡Diviértete con los renombrados!