[GRIZZLY85]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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]

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

Код:

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