library InitDLL;

{Martin Harvey 9/10/2000}

uses
  SysUtils,
  Windows,
  Dialogs,
  TestUnit in 'TestUnit.pas';

procedure FancyMessage;stdcall;
begin
  TestUnit.UnitProc;
end;

procedure EntryPointFunc(Reason:integer);
begin
  case reason of
    DLL_PROCESS_ATTACH:ShowMessage('EntryPoint. Process Attach.');
    DLL_THREAD_ATTACH:ShowMessage('EntryPoint. Thread Attach.');
    DLL_PROCESS_DETACH:ShowMessage('EntryPoint. Process Detach.');
    DLL_THREAD_DETACH:ShowMessage('EntryPoint. Thread Detach.');
  else
    ShowMessage('EntryPoint. Unknown reason');
  end;
end;

exports FancyMessage;

begin
  ShowMessage('Main DLL Body.');
  DLLProc := @EntryPointFunc;
end.