Головна сторінка
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.079 c
1-1101839603
Той, хто шукає відповідь
2004-11-30 21:33
2004.12.12
Чому не працює код?


3-1100079486
} | {Yk
2004-11-10 12:38
2004.12.12
консолідація даних


1-1101844510
Fido24
2004-11-30 22:55
2004.12.12
Додатки на базі ISAPI / NSAPI ???


14-1101327397
лицар
2004-11-24 23:16
2004.12.12
10 буказоідов на Мегафон-Москва ...


1-1101389411
Layner
2004-11-25 16:30
2004.12.12
Скрол на TPanel





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