ファイルのコンテキストダイアログ、デフォルトのアクションなどを開く

Question

Windowsでは、Windowsエクスプローラにあり、ファイルまたはディレクトリを右クリックすると、Windowsのコンテキストメニューが表示され、このファイルまたはディレクトリに関するすべての操作が実行されます。

Brad Stowersは、自分のDelphiアプリケーション内でまったく同じことをしたItemProp.pasという単位を書きました。このユニットはDelphi 5でうまく動作しますが、D7以上では多くのエラーが発生します。

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

大丈夫！私はそれを認めます！私は怠け者であり、更新されたユニットとこれでも1つでもグーグルしているが、少なくともユニットD7と互換性を持たせるために数時間働いているが、これに関して何か成功していないので、 。

私の質問は、このユニットがD7以上で更新されているか、またはこのコードが何をするユニットまたはコンポーネントが存在するかです。

ありがとうございます！私はメインファイル（ItemProp.pas）に

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

を追加

私はすべてのことが必要とされている疑いがあるジョン

Answer 1

がDFS.inc

でのコンパイラのバージョンのディレクティブを更新することであり、それはDelphi 2007で正常にコンパイルされましたが、まだコードを実行しようとしていません。

Answer 2

このユニットを翻訳する代わりに、JEDI JCL libraryを使用してJclShellユニットをチェックしてください。このユニットの内部には、ファイルのシェルコンテキストメニューを表示するDisplayContextMenuという機能があります。

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