ShellAPI, удаление группы выделенных файлов или папок

[GRIZZLY85]

Здравствуйте, помогите пожалуйста разобраться с этой проблемой..я новичок ы этом деле, не могу сообразить как удалить группу выделенных файлов в корзину Что надо добавить или изменить в этом коде?

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:= ShellListView1.SelectedFolder.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;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GRIZZLY85]

Здравствуйте, пожалуйста помогите!!! Как удалить выделенные папки или файлы

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:= ShellListView1.SelectedFolder.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.SelectedFolder.PathName + #0 + FPath + #0;

и вся любовь