testdll.dpr

来自「delphi源代码分析源码」· DPR 代码 · 共 21 行

library TestDll;

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;

end.