testsharemem.dpr

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

program TestShareMem;

{$APPTYPE CONSOLE}

uses
  ShareMemRep,
  Windows;

var
  S : String = 'Hehe, It''s very COOL...';
  DynGetStringFromDLL : function (S : String) : String;

procedure DynamicLoadTest(LibName : String);
var
  Str : String;
  HLib : HModule;
begin
  HLib := LoadLibrary(PChar(LibName));
  DynGetStringFromDLL := GetProcAddress(HLib, 'GetStringFromDLL');
  Str := DynGetStringFromDLL(S);
  Writeln(Str);

// HI!!! Don't lost this in your app!!!
// FreeLibrary(HLib);

end;

begin
  Writeln('- Dynamic -':15);
  DynamicLoadTest('TestDynDll.dll');
end.