testexe.dpr

delphi开发语言下的源代码分析

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.