Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Вниз

Переименование   Найти похожие ветки 

← →
Ceil   (2008-06-02 17:13) [0]

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

---

← →
Виталик   (2008-06-02 17:15) [1]

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

---

← →
Виталик   (2008-06-02 17:18) [2]

Вот из старых запасов:
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;

---

← →
palva ©   (2008-06-02 18:39) [3]

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

---

← →
sniknik ©   (2008-06-02 19:27) [4]

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c