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...

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

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

Читать

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