UseMyDLL.dpr

program UseMyDLL;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Winapi.Windows;

var
  deneme: function(param: PWideChar): PWideChar; stdcall;

procedure Test;
var
  H: HModule;
  Buffer: array[0..255] of WideChar;
begin
  H := LoadLibrary('MyDLL.dll');
  if H <> 0 then
  begin
    @deneme := GetProcAddress(H, 'deneme');
    if Assigned(deneme) then
      Writeln('SUCCESS')
    else
      Writeln('EPIC FAIL');
  end
  else
    Writeln('Couldn''t find DLL');
  StrCopy(Buffer, '12345');
  Writeln(deneme(Buffer));
end;

begin
  try
    Test;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.