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