здравствуйте, я новичок в этом деле, помогите пожалуйста разобраться, как удалить все выделенные папки одним разом в корзину в shelllistview??
у меня когда все выделяешь, программа всё равно удаляет по одной
что мне надо изменить в коде? заранее большое спасибо!!!
Код:
procedure TForm1.Delete1Click(Sender: TObject);
var
SF: TShellFolder;
FPath: String;
FOS: TSHFileOpStruct;
FileOp: HRESULT;
begin
With FOS do
begin
SF:= ShellListView1.SelectedFolder;
If System.Assigned(SF) then
begin
FPath:= SF.PathName + #0 + #0;
FOS.Wnd:= Application.Handle;
FOS.wFunc:= FO_DELETE;
FOS.pFrom:= @FPath[1];
FOS.pTo:= 0;
FOS.fFlags:= FOF_ALLOWUNDO or FOF_SILENT;
FOS.fAnyOperationsAborted:= False;
FOS.hNameMappings:= 0;
FOS.lpszProgressTitle:= 0;
end;
FileOp:= SHFileOperation(FOS);
end;
ShellListView1.Refresh;
end;
а выделенные как на вложенном рисунке