omdøbe bibliotek

procedure RenameDir(DirFrom, DirTo: string);
var
  shellinfo: TSHFileOpStruct;
begin
  with shellinfo do
  begin
    Wnd    := 0;
    wFunc  := FO_RENAME;
    pFrom  := PChar(DirFrom);
    pTo    := PChar(DirTo);
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
              FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(shellinfo);
end;
uses shellapi

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameDir('C:\temp', 'C:\tempo');
end;

Du kan bruge RenameFile(dir1,dir2). En god idé at angive fuld sti idet eks. RenameFile('c:\test','test2') også vil flytte kataloget til katalog man tilfældigvis befinder sig i (medmindre man er på et andet drev).