DllMain for Island/Oxygene/Win32

Elements
1

How to add DllMain for Island Win32? The same as Delphi, like below?

library MyIslandDll;

     procedure MyDllMain(aReason: Integer);
     begin
       case aReason of
             DLL_PROCESS_ATTACH : DoDllProcessAttach;
             DLL_PROCESS_DETACH : DoDllProcessDetach;
             DLL_THREAD_ATTACH  : DoDllThreadAttach;
             DLL_THREAD_DETACH  : DoDllThreadDetach;
        end;
     end;
 begin
    IsMultiThread := True;
    DllProc := MyDllMain;
 end.
2

You can do something like:



[SymbolName('__elements_dll_main')]
method DllMain(aModule: rtl.HMODULE; aReason: rtl.DWORD; aReserved: ^Void): Boolean; 
begin 
 ... 
end;
2 Likes