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

Вниз

Как изменить имя каталога   Найти похожие ветки 

← →
Dron ©   (2004-04-10 16:42) [0]

Подскажите,как мне изменить имя каталога.

---

← →
Songoku ©   (2004-04-10 16:48) [1]

Я думаю .... MoveFile
точно не знаю .. не где проверить!

---

← →
Евгения   (2004-04-12 17:30) [2]

uses ShellAPI;

procedure Rename(AHandle: THandle; AFromDir, AToDir: String);
var
 SHFileOpStruct: TSHFileOpStruct;
begin
 with SHFileOpStruct do
 begin
   Wnd := AHandle;
   wFunc := FO_RENAME;
   pFrom := PChar(AFromDir);
   pTo   := PChar(AToDir);
   fFlags := 0;
   fAnyOperationsAborted := False;
   hNameMappings := nil;
   lpszProgressTitle := nil;
 end;
 ShFileOperation(SHFileOpStruct);
end;

Пример:
Rename(Handle,"C:\tmp\2.txt","C:\tmp\1.txt" );

---

← →
easy ©   (2004-04-12 17:52) [3]

RenameFile("C:\Temp\5879\","C:\Temp\5879_new\");

---

← →
Yanis ©   (2004-04-12 18:27) [4]

To [1]
:)

---

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

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

Наверх

Память: 0.45 MB
Время: 0.042 c