IShellExecuteHook.Execute

Can someone show me how to use "IShellExecuteHook.Execute" in Delphi please?

info: IShellExecuteHook:开发者_如何学JAVA:Execute Method

Description: This method is called any time the ShellExecute or ShellExecuteEx functions are called. This happens when a file is double-clicked in Explorer or when the Run dialog box is used.

Thanks.

The following EDN link looks like it will give you what you need: How to hook ShellExecute calls (IShellExecuteHook)

Be aware that it won't work in 64 bit Windows because that requires 64 bit shell extensions and because Delphi only produces 32 bit images you would need to use a different language. I also note that IShellExecuteHook is deprecated as of Vista.