Delphi: Ordner umbenennen

In diesem Tutorial zeige ich euch, wie ihr mit Delphi ein Verzeichnis umbenennen könnt.

Wir benutzen dafür die ShellApi von Windows. In die USES schreiben wir die Unit ShellApi:

uses
   ShellApi;

Und definieren uns eine Prozedur OrdnerUmbenennen, mit der wir den Ordner "OrdnerAlt" in "OrdnerNeu" umbennen können:

procedure OrdnerUmbenennen(OrdnerAlt, OrdnerNeu: string);
var
   ShellInfo: TSHFileOpStruct;
begin
   ShellInfo.Wnd   := 0;
   ShellInfo.wFunc := FO_RENAME;
   ShellInfo.pFrom := PChar(OrdnerAlt);
   ShellInfo.pTo   := PChar(OrdnerNeu);

   SHFileOperation(ShellInfo);
end;

Schließlich hier ein möglicher Aufruf unserer Prozedur, der hier den Ordner "Ordner" in "NeuerName" umbenennt:

procedure TForm1.Button1Click(Sender: TObject);
begin
   OrdnerUmbenennen('C:\Ordner', 'C:\NeuerName');
end;

Viel Spaß beim Umbenennen!