testsharemem.dpr

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

program TestShareMem;

{$APPTYPE CONSOLE}

uses
  ShareMemRep,
  SysUtils;

function GetStringFromDLL(S : String) : String;
  external 'TestDll.dll';

var
  S : String = 'Hehe, It''s very COOL...';

procedure OutputString;
var
  Str : String;
  i : integer;
begin
  try
    i := 0;
    Str := IntToStr(5 div i);
  except
    on E:Exception do
      writeln('Exception Support in EXE -> '#$0D#$0A'  ', E.Message);
  end;

  Str := GetStringFromDLL(S);
  Writeln;
  Writeln(Str);
end;

begin
  OutputString;
end.