copyhook,勾子原理演示 unitCopyHook_Unit; interface usesWindows,ComObj,ShlObj,StdVcl; type TCopyMain=class(TComObject,ICopyHook) protected