Текущий архив: 2005.06.06;
Скачать: 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 вся ветка
Текущий архив: 2005.06.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
