testsharemem.dpr

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

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.