Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

перейменувати ПАПКУ Знайти схожі гілки


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

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



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

Ну наприклад:

MoveFile



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

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

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

використовує
 ShellApi;

procedure RenameDir(DirFrom, DirTo: string);
було
 shellinfo: TSHFileOpStruct;
починати
 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);
починати
 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;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.82 MB
Час: 0.082 c
14-1101224044
Maverick
2004-11-23 18:34
2004.12.12
алгоритмічна задача


1-1101477916
Pentium133
2004-11-26 17:05
2004.12.12
Сопірованіе Canvas ів


6-1096272949
DA
2004-09-27 12:15
2004.12.12
WebBrowser


14-1100875107
Раміль
2004-11-19 17:38
2004.12.12
Копіювання жорсткого диска


4-1099032593
WaS
2004-10-29 10:49
2004.12.12
Як визначити активний зараз робочий стіл ????





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська