Delphi: Rename Folder

In this tutorial I would like to show you, how you can rename a directory with Delphi.

We are using the ShellApi from Windows for this, so we have to write the unit ShellApi to our uses-clause:

uses
   ShellApi;

After that, we define a procedure called RenameFolder, with which we are able to rename the folder "FolderOld" to "FolderNew":

procedure RenameFolder(FolderOld, FolderNew: string);
var
   ShellInfo: TSHFileOpStruct;
begin
   ShellInfo.Wnd   := 0;
   ShellInfo.wFunc := FO_RENAME;
   ShellInfo.pFrom := PChar(FolderOld);
   ShellInfo.pTo   := PChar(FolderNew);
 
   SHFileOperation(ShellInfo);
end;

Finally, here is a possible call of our procedure. Here we are renaming the folder "Folder" to "NewName":

procedure TForm1.Button1Click(Sender: TObject);
begin
   RenameFolder('C:\Folder', 'C:\NewName');
end;

Have fun with renaming!