Topspeed_JPI/TS/SAVE/LIBMAIN.MOD

IMPLEMENTATION MODULE LibMain;
  IMPORT Windows;

  PROCEDURE LIBMAIN(hInstance:HANDLE;wDataSeg,cbHeapSize:CARDINAL;lpszCmdLine:ARRAY OF CHAR):INTEGER;
    VAR
      Ret               : INTEGER;
    BEGIN
      Ret := 1;
      (*               .                 *)
      (*               .                 *)
      (*               .                 *)
      (* Perform DLL Initialization here *)
      (*               .                 *)
      (*               .                 *)
      (*               .                 *)
      IF cbHeapSize > 0 THEN
        Windows.UnlockData(0);
      END; (*IF*)
      RETURN Ret;
    END LIBMAIN;

  PROCEDURE WEP(nParam:INTEGER):INTEGER;
    BEGIN
      CASE nParam OF
        Windows.WEP_SYSTEM_EXIT   : (* System Shutdown *)
                                    RETURN 1;                             |
        Windows.WEP_FREE_DLL      : (* Use count = 0 - DLL freed *)
                                    RETURN 1;                             |
      ELSE (* Undefined, just return *)
        RETURN 1;
      END; (*CASE*)
    END WEP;

END LibMain.