Главная страница
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.041 c
3-1099555085
Victor!
2004-11-04 10:58
2004.12.12
Как обойти дел. на ноль в JetSQL


14-1099947252
Piter
2004-11-08 23:54
2004.12.12
Что за shellhook.dll?


14-1101233171
Igorek
2004-11-23 21:06
2004.12.12
Вспомним В.Цоя


1-1101750137
Davinchi
2004-11-29 20:42
2004.12.12
PChar TO String


3-1100087184
ruslanyd
2004-11-10 14:46
2004.12.12
Среднее между TDBLookupListBox и TListBox