怎样能够在自己的ExeploreView和ExeploreTree中返回Windows自己的资源管理器的右键菜单(100分)

最好是用BCB的代码，第一个正确的人得分，其他我只能说 Sorry！

..

是这个问题太简单了不值得高手回答，还是都不晓得！
这里是大富翁吗？

呵呵，你还别说，我到Borland的新闻组问了一下，居然没有回答~~~~~~~~~~~
//faint。
ACDSee的那个Shift+Right Click出来的菜单不知道怎么调用~~~~~~~~~，期待高手出现。

P.S：听说有第三方的控件可以做到调用系统的属性之类的对话框，可能也能调用右键菜单把？
不知道下载的地址了。

再次提前！
谢谢Kingron！

提前一下！

找到了，dfs控件可以（dopix给我的），有源代码！写信给我，我G给你！来信请说明问题。
delphi格式的。

kingron兄，我找不到你的e-mail地址！现在的大富翁不列出邮件地址了.
我的地址： a_fi@cmmail.com
期待你的回复！
怎样能够在自己的ExeploreView和ExeploreTree中
返回Windows自己的资源管理器的右键菜单?
=========
来自：Kingron, 时间：2001-5-12 18:12:54, ID：528631
找到了，dfs控件可以（dopix给我的），有源代码！写信给我，我G给你！
来信请说明问题。delphi格式的

已经寄给你了。

嘿嘿。。。
Kingron老兄，什么时候有猛料可别忘了我呀。

kingron兄,让我在2000行的代码中找几行代码，真是要了我的老命呀！
帮帮忙，再指点一下，谢拉！
分给你了！

呵呵，没有2000行吧，1281行。
开头那一段就是呀(我注释了一下)，参数要弄对了。
如下：

{$IFDEF DFS_COMPILER_4_UP} //D4以上版本
function DisplayContextMenu(const Filename: string; Parent: DFS_HWND;
Pos: TPoint; ShowRename: boolean; var RenameSelected: boolean): boolean; overload;//显示上下文菜单

function DisplayContextMenu(const Directory: string; Items: TStringList;
Parent: DFS_HWND; Pos: TPoint; ShowRename: boolean;
var RenameSelected: boolean): boolean; overload;//显示上下文菜单

function DisplayContextMenu(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; Pos: TPoint; PidlCount: integer;
ShowRename: boolean; var RenameSelected: boolean): boolean; overload;

{$ELSE}

function DisplayContextMenu(const Filename: string; Parent: DFS_HWND;
Pos: TPoint; ShowRename: boolean; var RenameSelected: boolean): boolean;

function DisplayContextMenuList(const Directory: string; Items: TStringList;
Parent: DFS_HWND; Pos: TPoint; ShowRename: boolean;
var RenameSelected: boolean): boolean;

function DisplayContextMenuPIDL(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; Pos: TPoint; PidlCount: integer;
ShowRename: boolean; var RenameSelected: boolean): boolean;

{$ENDIF}

//------------------------------------------------------------------------------
// DisplayPropertiesDialog displays, oddly enough, the properties dialog for
// the given file or directory. Parent is the window handle for the owning
// window of any error messages that may need to be displayed by the system,
// MyForm.Handle is generally fine.
//------------------------------------------------------------------------------
{$IFDEF DFS_COMPILER_4_UP}//D4以上版本
function DisplayPropertiesDialog(const Filename: string;
Parent: DFS_HWND): boolean; overload;//显示属性对话框

function DisplayPropertiesDialog(const Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean; overload;//显示属性对话框

function DisplayPropertiesDialog(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; PidlCount: integer): boolean; overload;

{$ELSE}

function DisplayPropertiesDialog(const Filename: string; Parent: DFS_HWND): boolean;

function DisplayPropertiesDialogList(const Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean;

function DisplayPropertiesDialogPIDL(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; PidlCount: integer): boolean;

{$ENDIF}

//------------------------------------------------------------------------------
// PerformDefaultAction causes the item's double-click action to be taken.
// Parent is the window handle for the owning window of any error messages
// that may need to be displayed by the system, MyForm.Handle is generally fine.
//------------------------------------------------------------------------------
{$IFDEF DFS_COMPILER_4_UP}//D4以上版本
function PerformDefaultAction(const Filename: string;
Parent: DFS_HWND): boolean; overload;

function PerformDefaultAction(const Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean; overload;

function PerformDefaultAction(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; PidlCount: integer): boolean; overload;

{$ELSE}

function PerformDefaultAction(const Filename: string;
Parent: DFS_HWND): boolean;

function PerformDefaultActionList(const Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean;

function PerformDefaultActionPIDL(AParent: IShellFolder; var APIDL: PItemIDList;
Attr: ULONG; Parent: DFS_HWND; PidlCount: integer): boolean;

{$ENDIF}


//------------------------------------------------------------------------------
// PerformVerb causes executes the given verb for the item. Common verbs are
// 'delete', 'cut', 'copy', 'paste', etc. Parent is the window handle for the
// owning window of any error messages that may need to be displayed by the
// system, MyForm.Handle is generally fine.
//------------------------------------------------------------------------------
{$IFDEF DFS_COMPILER_4_UP}//D4以上版本
function PerformVerb(const Verb, Filename: string;
Parent: DFS_HWND): boolean; overload;

function PerformVerb(const Verb, Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean; overload;

function PerformVerb(const Verb: string; AParent: IShellFolder;
var APIDL: PItemIDList; Attr: ULONG; Parent: DFS_HWND;
PidlCount: integer): boolean; overload;

{$ELSE}

function PerformVerb(const Verb, Filename: string; Parent: DFS_HWND): boolean;

function PerformVerbList(const Verb, Directory: string; Items: TStringList;
Parent: DFS_HWND): boolean;

function PerformVerbPIDL(const Verb: string; AParent: IShellFolder;
var APIDL: PItemIDList; Attr: ULONG; Parent: DFS_HWND;
PidlCount: integer): boolean;
{$ENDIF}

doxpix,非常感谢！