testdll3.dpr

来自「delphi开发语言下的源代码分析」· DPR 代码 · 共 40 行

library TestDll3;

uses
  ShareMemRep,
  Windows;

var
  Str : String = 'Written by Aimingoo!'#$0D#$0A;
  pMemLeak : pointer;

function GetStringFromDLL(S : String) : String;
begin
  Result := Str + S;
  GetMem(pMemLeak, 30000);
end;

exports
   GetStringFromDLL;

procedure SafeDllProc(Reason: Integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH,
    DLL_THREAD_ATTACH,
    DLL_THREAD_DETACH :
      { Do Somethings... };
    DLL_PROCESS_DETACH :
      { Do Somethings... };
  end;
end;

begin
  // hi, don't access SysInit.DllProc!!!
  // Direct Accessing DllProc or using ShareMemRep.DllProc is safe!!!

  if not assigned(DllProc) then
    DllProc := @SafeDllProc;
  SafeDllProc(DLL_PROCESS_ATTACH); 
end.