Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.29;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-1200920739
S@shka
2008-01-21 16:05
2008.06.29
Передать в UDF TimeStamp


2-1212434955
Mariana
2008-06-02 23:29
2008.06.29
Запуск приложения


2-1212375734
snake-as
2008-06-02 07:02
2008.06.29
MediaPlayer


11-1190645841
mdw
2007-09-24 18:57
2008.06.29
ListView + lvoOwnerData + темы


2-1212463198
n00b xDD
2008-06-03 07:19
2008.06.29
DEC to HEX(а точнее как инт показать в виде 16ого числа)