打開文件的上下文對話框，默認操作等

Question

在Windows中，當Windows在Windows資源管理器中並右鍵單擊某個文件或目錄時，會出現一個Windows上下文菜單，其中包含有關該文件或目錄的所有操作。

回到當天，Brad Stowers編寫了一個ItemProp.pas單元，它在自己的Delphi應用程序中完成了同樣的事情。這個單元在Delphi 5中運行良好，但是對於D7和更高版本，會引發很多錯誤。

http://www.koders.com/delphi/fid7ABE724EBD5F2123FF824AFD45151D2A087C5E6C.aspx?s=network

好吧！我承認！我很懶，爲了更新的單位，甚至像這樣的一個Google已經工作了幾個小時，試圖使這個單位至少D7兼容，但我想我失去了某個地方，因爲我沒有成功地在這方面的任何努力。

所以......我的問題是，有沒有人更新過這個單位的D7和以上或做一個單位或組件存在，做這個代碼呢？

在此先感謝！

約翰

Answer 1

我懷疑一切需要的是DFS.inc

我加

{$DEFINE DFS_DELPHI} 
{$DEFINE DFS_COMPILER_4_UP} 
{$DEFINE DFS_NO_COM_CLEANUP} 
{$DEFINE DFS_COMPILER_3_UP} 

到主文件（ItemProp.pas）更新版本的編譯器指令，並它在Delphi 2007上編譯好，但我還沒有嘗試過運行代碼。

Answer 2

而不是翻譯這個單位，你可以使用更新的JEDI JCL library，檢查JclShell單位，在本單位內存在一個函數DisplayContextMenu whcih顯示文件的外殼上下文菜單。

function DisplayContextMenu(const Handle: HWND; const FileName: string; 
    Pos: TPoint): Boolean;