Advertisement
Guest User

reiser

a guest
Jan 17th, 2010
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.19 KB | None | 0 0
  1. unit SharedData;
  2.  
  3. interface
  4.  
  5. uses
  6.   ReiIRC, ReiStringArray;
  7.  
  8. type
  9.   TSharedData = record
  10.                   Constants  : record
  11.                                  CONFIG_FILE      : String;
  12.                                  PLUGINS_PATH     : String;
  13.                                  PLUGINS_MAINFUNC : String;
  14.                                  PLUGINS_INFOFUNC : String;
  15.                                end;
  16.                   IRCServers : record
  17.                                  Count : Integer;
  18.                                  Items : Array of record
  19.                                            IRCEngine : TReiIRC;
  20.                                            Channels  : TReiStringArray;
  21.                                          end;
  22.                                end;
  23.                 end;
  24.  
  25.   TPluginInfo = record
  26.                    Name        : String;
  27.                    Version     : String;
  28.                    Author      : String;
  29.                    Timestamp   : String;
  30.                    Description : String;
  31.                 end;
  32.  
  33.   TPluginFunc_Main = function(shd : pointer) : Integer; stdcall;
  34.   TPluginFunc_Info = function : TPluginInfo; stdcall;
  35.  
  36. implementation
  37.  
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement