Переиминовать папку

[Linch]

Народ помогите плз написать прогу под Delphi:

Нужно переиминовать в конревой папке(там где exe будет)
папка\папка\ПЕРЕИМИНОВАТЬ\папка\ПЕР ЕИМИНОВАТЬ\

Нужно переиминовать их на че что вводятся в окне программы (названия разные).

Плз оч прошу помогите, 2й день бьюсь.

[Ozerich]

RenameDir.

[Linch]

Сообщение от Ozerich

RenameDir.

Весьма развернутый ответ.

спс. буду искать в другом месте.

[DM_bite]

RenameDir

[Error] RModule.pas(60): Undeclared identifier: 'RenameDir'.....

[Ozerich]

RenameDirectory

[DM_bite]

RenameDirectory

Тот-же трабл....

[eoln]

http://programmersforum.ru/showthread.php?t=25506

uses 
  ShellApi; 

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; 

begin
  s := sysutils.ExtractFilePath(application.ExeName);
  renamedir(s + 'папка\папка\ПЕРЕИМИНОВАТЬ\папка\ПЕРЕИМИНОВАТЬ', s + 'папка\папка\НОВОЕ_ИМЯ\папка\ПЕРЕИМИНОВАТЬ');
  renamedir(s + 'папка\папка\НОВОЕ_ИМЯ\папка\ПЕРЕИМИНОВАТЬ', s + 'папка\папка\НОВОЕ_ИМЯ\папка\НОВОЕ_ИМЯ_2');
end;

[Ozerich]

дубль 3.

uses 
  ShellApi; 

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; 


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

[Linch]

Огромное спс. Ушел пробовать.

[Linch]

Не выходит

Выложите плз исходник кто-нить.

И нужно не вбитое название папки а то что задает пользователь в Edit1: TEdit; наверно.