home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 October / PCO_1098.ISO / filesbbs / dos / ub_100g2.exe / STRUCTS / EXAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-06-13  |  3.8 KB  |  90 lines
  1. (***************************************************************************
  2.  **                                                                       **
  3.  *   ┌─┐  ┌─┐ ┌─┐      ┌───────┐ ┌─┐ ┌──────┐ ┌──────┐ ┌───────┐ ┌──────┐  *
  4.  *   └─┘  └─┘ └─┘      └───────┘ └─┘ └──────┘ └──────┘ └───────┘ └──────┘  *
  5.  *   ┌─┐  ┌─┐ ┌─┐         ┌─┐    ┌─┐ ┌─┐┌┐┌─┐ ┌──────┐    ┌─┐    ┌────┐    *
  6.  *   │ │  │ │ │ │         │ │    │ │ │ │└┘│ │ │ ┌──┐ │    │ │    │ ┌──┘    *
  7.  *   │ └──┘ │ │ └────┐    │ │    │ │ │ │  │ │ │ │  │ │    │ │    │ └────┐  *
  8.  *   └──────┘ └──────┘    └─┘    └─┘ └─┘  └─┘ └─┘  └─┘    └─┘    └──────┘  *
  9.  *               ┌─────┐  ┌──────┐ ┌──────┐ ┌──────┐ ┌─────┐               *
  10.  *               └─────┘  └──────┘ └──────┘ └──────┘ └─────┘               *
  11.  *               ┌──────┐ ┌─┐  ┌─┐ ┌──────┐ ┌──────┐ ┌─┐  ┌─┐              *
  12.  *               │ ┌──┐ │ │ │  │ │ │ ┌──┐ │ │ ┌─┐ ┌┘ │ │  │ │              *
  13.  *               │ └──┘ │ │ └──┘ │ │ │  │ │ │ │ │ │  │ └──┘ │              *
  14.  *               └──────┘ └──────┘ └─┘  └─┘ └─┘ └─┘  └──────┘              *
  15.  *                                                                         *
  16.  *    Copyright (C) 1998 UltimateBoard Version 1.00 by ULTiMATE-SYSTEMS    *
  17.  **                                                                       **
  18.  ***************************************************************************
  19.  **                                                                       **
  20.  *                        UltimateBoard Example UBE                        *
  21.  **                                                                       **
  22.  ***************************************************************************)
  23.  
  24. {$IFNDEF DPMI}
  25. This is a DOS protected mode driver - it is useless to compile in realmode!
  26. {$ENDIF}
  27.  
  28.  
  29. Library EXAMPLE;
  30.  
  31. uses Crt,
  32.      KrnlDRV,   {Kernel}
  33.      UBTypes,   {Global UBE Vars}
  34.      DRVUBS;    {Screen-Driver}
  35.  
  36.  
  37. {*************************** DescribeDriver ********************************}
  38. procedure DescribeDriver(Driver:PDriver); export;
  39. begin
  40.   with Driver^ do begin
  41.     Name        :='Example PlugIn'#0; {Name of this UBE         }
  42.     Version     :=$0001;              {Versionnumber of this UBE}
  43.     PlugInKernel:=$0001;              {Kernel Version}
  44.     DriverType  :=drvUBE;             {Type of this UBE         }
  45.     Copyright   :='Copyright (C) 1996-1998 by ULTiMATE-SYSTEMS'#0; {Copyright}
  46.     AutoOnly    :=false;           {AutoOnly=false -> Can be insert in Menu-Editor}
  47.   end;
  48. end;
  49.  
  50.  
  51. {******************************* Setup *************************************}
  52. procedure Setup; export;
  53. begin
  54.   UBKernel_Init('UBKERNEL.DLL');     {Initializing the complete Kernel}
  55.   Get_ConfigPointer(VConfiguration); {Get the Pointer-Address of the Configuration-Data}
  56.  
  57.   {The Setup-routine}
  58.  
  59.   UBKernel_Done;                     {Done the Kernel}
  60. end;
  61.  
  62.  
  63. {********************************* UBE *************************************}
  64. Function PlugIn_Run(ComDriver,ScreenDriver:Pchar;VUBKey:TUBKey;Params:String):String; export;
  65. begin
  66.   UBKernel_Init('UBKERNEL.DLL');      {Initializing the complete Kernel}
  67.   SCREEN_Init(ScreenDriver);
  68.  
  69.   Get_ConfigPointer(VConfiguration);  {Get the Pointer-Address of the Configuration-Data}
  70.   Get_LngPointer(VActPoint);          {Get the Pointer-Address of the Language-File}
  71.   Get_UserPointer(VUserData);         {Get the Pointer-Address of the current Userdata}
  72.   Get_SecLevelsPointer(VSecurity_Levels);
  73.   Get_NodeCFGPointer(VNode_CFG);      {Get the Pointer-Address of the current Modem-Settings}
  74.  
  75.  
  76.   {The UBE}
  77.  
  78.  
  79.   SCREEN_Done;
  80.   UBKernel_Done;                      {Done the Kernel}
  81.   PlugIn_Run:='';
  82. end;
  83.  
  84.  
  85. exports
  86.   DescribeDriver        resident,
  87.   Setup                 resident,
  88.   PlugIn_Run            resident;
  89. begin
  90. end.