| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

переименовать ПАПКУ [D6, D7, WinXP]

Homa_Programer ©   (2004-11-25 23:44:00) 

Народ подскажите какой функцией или процедурой можно переименовать папку с файлами в Дельфи...

---

Пыч   (2004-11-28 08:18:00) [1]

SHFileOperation

---

Homa_Programer   (2004-11-27 01:11:00) [2]

> АП   (26.11.04 00:24) [2]
> Первое, что пришло на ум

вот тока не все папки переименовываются((( а так работает спасибо...

---

programania   (2004-11-27 00:18:00) [3]

if not renameFile(f1,f2) then
showMessage('Закройте все программы где открыта папка '+f1);

---

АП   (2004-11-26 00:24:00) [4]

Первое, что пришло на ум - посмотреть в DelphiWorld:

Переименование каталога
-----------------------------------------------------------------

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;

Не проветял!!

---

Yanis   (2004-11-26 00:11:00) [5]

Ну, например:

MoveFile


---

Наверх