Форум программистов [Powered by Invision Power Board]

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  ContextMenu : IContextMenu;
  AInvokeCommand: TCMInvokeCommandInfo;
begin
  if   FIShellFolder.GetUIObjectOf(Handle, 1, ShellItem(ListView.Selected.Index).ID,
    IID_IContextMenu, nil, ContextMenu) = S_OK then
  begin
    FillMemory(@AInvokeCommand, SizeOf(AInvokeCommand), 0);
    with AInvokeCommand do
    begin
      cbSize := SizeOf(AInvokeCommand);
      hwnd := Handle;
      lpVerb := PChar('Cut'); // ñòðîêîâàÿ êîíñòàíòà äëÿ îïåðàöèè íàä ýëåìåíòîì...
      fMask := CMIC_MASK_FLAG_NO_UI;
       nShow := SW_SHOWNORMAL;
    end;
    // Âûïîëíåíèå êîìàíäû...
    ContextMenu.InvokeCommand(AInvokeCommand);
  end;
end;