Текущий архив: 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.45 MB
Время: 0.032 c
