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

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

ShFileOperation [WinXP]

psa247 ©   (2005-04-13 14:44:00) 

Подскажите, какой параметр передавать в TSHFileOpStruct, чтобы скопировать файл из корзины в указанную папку?

---

mgcr   (2005-04-14 11:17:00) [1]

http://codeproject.com/shell/recyclebin.asp

Читать

---

psa247   (2005-04-14 11:08:00) [2]

Кто-нибудь знает, почему FindFirst всегда выдает при поиске
сначала: '.', затем FindNext находит: '..' и только потом уже выводит список содержимого, которое мы видим?
Что это за '.', '..'?

---

Marser   (2005-04-14 00:02:00) [3]

> frombuf, tobuf: Array [0..128] of Char;
>FillChar( frombuf, Sizeof(frombuf), 0);
>FillChar( tobuf, Sizeof(tobuf), 0);
> StrPCopy( frombuf, 'Recycled\'+SR.Name);
>pFrom:= @frombuf;
>  pTo:=@tobuf;

Зачем это? Можно просто приводить String к PChar.
А кроме ShFileOperation ещё существуют MoveFile, CopyFile, DeleteFile...

---

psa247   (2005-04-13 19:57:00) [4]

Почему тогда это не пашет?
var
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
 SR: TSearchRec;
Begin
FindFirst('Recycled',faAnyFile,SR);
FillChar( frombuf, Sizeof(frombuf), 0);
FillChar( tobuf, Sizeof(tobuf), 0);
StrPCopy( frombuf, 'Recycled\'+SR.Name);
Memo3.Lines.Add(SR.Name);
FindClose(SR);
StrPCopy( tobuf, Edit1.Text);
With OpStruc DO Begin
 Wnd:= Handle;
 wFunc:= FO_COPY;
 pFrom:= @frombuf;
 pTo:=@tobuf;
 fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
 fAnyOperationsAborted:= False;
 hNameMappings:= Nil;
 lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

---

Marser   (2005-04-13 19:27:00) [5]

Recycled

---

psa247   (2005-04-13 19:09:00) [6]

Как корзину обозвать? Не с дисков, а целиком?

---

Marser   (2005-04-13 17:42:00) [7]

wFunc:=FO_COPY

---

Наверх