hook.dpr

来自「Delphi中远程控制的实现」· DPR 代码 · 共 24 行

library Hook;
uses
  Windows,
  ComUnit in 'ComUnit.pas',
  VarUnit in 'VarUnit.pas',
 FunUnit in 'FunUnit.pas',
  Threads in 'Threads.pas',
  WinUnit in 'WinUnit.pas';

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;
const
 ProcessName = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
var
  ModuleFileName: array [0..MAX_PATH] of Char;
  
begin
  ModuleFileName[GetModuleFileName(0, @ModuleFileName[0], MAX_PATH)] := #0;  // 进入进程文件名
  if CompareAnsiText(ExtractFileName(ModuleFileName), processname) then InExplorer := TRUE;
end.