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.