testdll.dpr

来自「Sharemem replacement for Delphi. Fast, 」· DPR 代码 · 共 40 行

library TestDll;

uses
  ShareMemRep,
  SysUtils,
  Windows,
  Classes,
  ComObj,
  ComServ,
  ConvUtils,
  HelpIntfs,
  StdConvs,
  VarCmplx,
  VarConv,
  VCLCom,
  Forms;

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

function GetStringFromDLL(S : String) : String;
var
  i : integer;
begin
  try
    i := 0;
    Result := IntToStr(5 div i);
  except
    on E:Exception do
      writeln('Exception Support in DLL -> '#$0D#$0A'  ', E.Message);
  end;

  Result := Str + S;
end;

exports
   GetStringFromDLL;

end.