testexe.dpr

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

program TestExe;

{$APPTYPE CONSOLE}

uses
  ShareMemRep;

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

function GetString : String;
begin
  Result := GetStringFromDLL('Shared String.');
end;

begin
  writeln(GetString);
end.