procedure ShowSysPopup(aFileLst: TStringList; P: TPoint; HND: HWND);

var

  Root: IShellFolder;

  ShellParentFolder: IShellFolder;

  chEaten,dwAttributes: ULONG;

  ParentFolderPIDL: PItemIDList;

  FilesPIDL: PArrayOfPItemIDList;

  CM: IContextMenu;

  Menu: HMenu;

  Command: LongBool;

  ICM2: IContextMenu2;

 

  ICI: TCMInvokeCommandInfo;

  ICmd: integer;

  ZVerb: array[0..255] of AnsiChar;

  Verb: string;

  Handled: boolean;

  SCV: IShellCommandVerb;

  HR: HResult;

  I: Integer;

  Malloc: IMalloc;

begin

  OleCheck(SHGetMalloc(Malloc));

  OleCheck(SHGetDesktopFolder(Root));//Get the Desktop IShellFolder interface

  OleCheck(Root.ParseDisplayName(HND, nil, PWideChar(WideString(ExtractFilePath(aFileLst[0]))),

                      chEaten, ParentFolderPIDL, dwAttributes)); // Get the PItemIDList of the parent folder

  OleCheck(Root.BindToObject(ParentFolderPIDL, nil, IShellFolder,

                      ShellParentFolder)); // Get the IShellFolder Interface  of the Parent Folder

  FilesPIDL := AllocMem(SizeOf(PItemIDList) * aFileLst.Count);

  try

    for I := 0 to aFileLst.Count - 1 do

      OleCheck(ShellParentFolder.ParseDisplayName(HND, nil, PWideChar(WideString(ExtractFileName(aFileLst[I]))),

                      chEaten, FilesPIDL[I], dwAttributes)); // Get the relative  PItemIDList of the File

    ShellParentFolder.GetUIObjectOf(HND, aFileLst.Count, FilesPIDL^[0], IID_IContextMenu, nil, CM); // get the IContextMenu Interace for the file

  finally

    for i := 0 to aFileLst.Count - 1 do begin

      if FilesPIDL^[i] <> nil then Malloc.Free(FilesPIDL^[i]);

    end;

     FreeMem(FilesPIDL);

  end;

 

  if CM = nil then Exit;

  Menu := CreatePopupMenu;

  try

    CM.QueryContextMenu(Menu, 0, 1, FFF, CMF_EXPLORE or CMF_CANRENAME);

    CM.QueryInterface(IID_IContextMenu2, ICM2); //To handle submenus.

    try

      Command := TrackPopupMenu(Menu, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON or TPM_RETURNCMD, p.X, p.Y, 0, HND, nil);

    finally

      ICM2 := nil;

    end;

    if Command then begin

      ICmd := LongInt(Command) - 1;

      HR := CM.GetCommandString(ICmd, GCS_VERBA, nil, ZVerb, SizeOf(ZVerb));

      Verb := StrPas(ZVerb);

      Handled := False;

      if Supports(nil, IShellCommandVerb, SCV) then begin

        HR := 0;

        SCV.ExecuteCommand(Verb, Handled);

      end;

      if not Handled then begin

        FillChar(ICI, SizeOf(ICI), #0);

        with ICI do begin

          cbSize := SizeOf(ICI);

          hWND := 0;

          lpVerb := MakeIntResourceA(ICmd);

          nShow := SW_SHOWNORMAL;

        end;

        HR := CM.InvokeCommand(ICI);

      end;

      if Assigned(SCV) then

        SCV.CommandCompleted(Verb, HR = S_OK);

    end;

  finally

     DestroyMenu(Menu)

  end;

end;