Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

переименовать ПАПКУ   Найти похожие ветки 

 
Homa_Programer ©   (2004-11-25 23:44) [0]

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


 
Yanis ©   (2004-11-26 00:11) [1]

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

MoveFile


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

Первое, что пришло на ум - посмотреть в 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;

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


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

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


 
Homa_Programer ©   (2004-11-27 01:11) [4]


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

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


 
Пыч ©   (2004-11-28 08:18) [5]

SHFileOperation



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
8-1095414104
Гость
2004-09-17 13:41
2004.12.12
GDI+. Как правильно работать с MeasureCharacterRanges


14-1101202174
digger
2004-11-23 12:29
2004.12.12
Чипы и число 666


3-1100082557
alsov1
2004-11-10 13:29
2004.12.12
Не получается заставить фильтровать TADOQuery


4-1099030365
WaS
2004-10-29 10:12
2004.12.12
Определить нandle рабочего стола?


1-1101732165
Bobby Digital
2004-11-29 15:42
2004.12.12
Restart