[GRIZZLY85]

здравствуйте, я новичок в этом деле, помогите пожалуйста разобраться, как удалить все выделенные папки одним разом в корзину в 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;

а выделенные как на вложенном рисунке

[GRIZZLY85]

попробовал вот так, выделяешь три папки на удаление, а показывает, что только третью удаляет как быть не знаю помогите пожалуйста кто как может, буду благодарен вам

Код:

procedure TForm1.Delete2Click(Sender: TObject);
var
FPath: String;
FOS: TSHFileOpStruct;
FileOp: HRESULT;
i: integer;
begin
With FOS do
begin
For i:= 0 to ShellListView1.Items.Count - 1 do
If ShellListView1.Items[i].Selected = True then
begin

FPath:= ShellListView1.Folders[i].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; 

[GRIZZLY85]

всё, сам разобрался, какие то люди жадные

Код:

FPath:= ShellListView1.Folders[i].PathName + #0 + FPath + #0 + #0;