关于ShellTreeView

Question

这也算答案？？
你是来骗分的？？

Answer 1

Delphi的TShellTreeView不具有删除函数，但是可以实现uses
  ShlObj;procedure TForm1.Button1Click(Sender: TObject);
var
  CM: IContextMenu;
  SF: TShellFolder;
  PIDL: PItemIDList;
  CMICI: TCMInvokeCommandInfo;
begin
  SF := ShellTreeView1.SelectedFolder;
  PIDL := SF.RelativeID;
  SF.ParentShellFolder.GetUIObjectOf(Handle, 1, PIDL, IID_IContextMenu, nil, CM);
  FillChar(CMICI, SizeOf(CMICI), 0);
  with CMICI do begin
    cbSize := SizeOf(CMICI);
    hwnd := Handle;
    lpVerb := 'delete';
    nShow := SW_SHOWNORMAL;
  end;
  CM.InvokeCommand(CMICI);
end;