| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переименование [D2005, 2003]

Ceil ©   (2008-06-02 17:13:00) 

Подскажите пожалуйста по средствам какой команды можно переименовать папку на диске(съемном, или локальном) пожалуйста с примером, а то у меня справка не робит.Заранее спасибо

---

sniknik   (2008-06-02 19:27:00) [1]

> а то у меня справка не робит.
сочувствую...

---

palva   (2008-06-02 18:39:00) [2]

Если без переноса с диска на диск, то для директорий можно использовать RenameFile

---

Виталик   (2008-06-02 17:18:00) [3]

Вот из старых запасов:
procedure TForm1.Button1Click(Sender: TObject);
var  OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin  FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'c:\temp\2' );
StrPCopy( tobuf, 'c:\temp\brief' );
with OpStruc do begin
  Wnd := Handle;
  if GetKeyState(VK_SHIFT)<0 then   wFunc := FO_MOVE else
  wFunc := FO_RENAME;
  pFrom := @frombuf;
  pTo := @tobuf;
  fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
  fAnyOperationsAborted := False;
  hNameMappings := Nil;
  lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );

end;

---

Виталик   (2008-06-02 17:15:00) [4]

Ищи примеры с SHFileOperation.

---

Наверх