Скачать: CL | DM;

ShFileOperation   Найти похожие ветки 

← →
psa247 ©   (2005-04-13 14:44) [0]

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

---

← →
Marser ©   (2005-04-13 17:42) [1]

wFunc:=FO_COPY

---

← →
psa247 ©   (2005-04-13 19:09) [2]

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

---

← →
Marser ©   (2005-04-13 19:27) [3]

Recycled

---

← →
psa247 ©   (2005-04-13 19:57) [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-14 00:02) [5]

> 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-14 11:08) [6]

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

---

← →
mgcr ©   (2005-04-14 11:17) [7]

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

Читать

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c