右键菜单

Question

我用右键点C:\abc.txt这个文件的时候会弹出一个菜单
我想在我的程序中单击一个按钮来弹出这个菜单。
请问怎么做？

Answer 1

你是想使用popup菜單吧?要說清除點啊...

Answer 2

可能是我没说清楚。
不是去模拟那个菜单。
而是在我的程序里通过函数的调用。显示出那个菜单来。
听说有一个接口（IShellFolder）可以做到。我不知道怎么用。

Answer 3

uses ShellCtrls, ComObj, ShlObjprocedure TForm1.Button1Click(Sender: TObject);
var Desktop:IShellFolder;
    DesktopFolder:TShellFolder;
    DesktopPIDL: PItemIDList;
begin
  OleCheck(SHGetDesktopFolder(Desktop)) ;
  SHGetSpecialFolderLocation(0, CSIDL_DRIVES, DesktopPIDL);
  if DesktopPIDL <> nil then DesktopFolder := TShellFolder.Create(nil,
DesktopPIDL, Desktop);
  InvokeContextMenu(Self,DesktopFolder,2,2);
end;