var
sei:TSHELLEXECUTEINFO;
begin
ZeroMemory(sei,sizeof(sei));
sei.cbSize = sizeof(sei);
sei.lpFile = FileName;
sei.lpVerb = "properties";
sei.fMask = SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(sei);
end;
SEE_MASK_INVOKEIDLIST 掩码使ShellExecuteEx 能够调用由右键菜单扩展
动态添加的菜单项和由注册表注册的静态菜单项
是这个吗??