home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / mp3osr05.zip / src / config.pas < prev    next >
Pascal/Delphi Source File  |  2000-01-07  |  1KB  |  47 lines
  1. (*
  2.  * part of MPEG searcher project
  3.  *  (c) 1999 by Alexander Trunov, 2:5069/10, jnc@mail.ru
  4.  *)
  5.  
  6. unit Config;
  7.  
  8. interface
  9.  
  10. uses
  11.   Objects;
  12.  
  13. const
  14.   Version = '0.5';
  15.   Platform = {$IFDEF os2}    'OS/2'  {$ENDIF}
  16.              {$IFDEF win32}  'Win32' {$ENDIF}
  17.              {$IFDEF DPMI32} 'DPMI32'{$ENDIF}
  18.              {$IFDEF ver70}  'DPMI'  {$ENDIF} // planned (bp)
  19.              {$IFDEF linux}  'Linux' {$ENDIF} // planned (vp)
  20.              {$IFDEF go32v2} 'DPMI32'{$ENDIF} // planned (fpc)
  21.              ;
  22.  
  23. var
  24.   tplBy, tplWhole: PStringCollection;
  25.  
  26.   mcLayerI, mcLayerII, mcLayerIII, mcLayerUnknown: string;
  27.   mcMpeg10, mcMpeg20, mcMpeg25, mcMpegUnknown: string;
  28.   mcModeStereo, mcModeJointStereo, mcModeDualChannel, mcModeSingleChannel: string;
  29.   tplMakeShortFilenames: Boolean;
  30.  
  31.   searchMask, searchExclude, searchExcludePath: PStringCollection;
  32.   searchExcludeNonMpegs: Boolean;
  33.   searchRange: Longint;
  34.  
  35.   rpUseCodepage, rpIgnoreCase: Boolean;
  36.   rpCodepage: Longint;
  37.  
  38. implementation
  39.  
  40. begin
  41.   tplBy := nil;
  42.   tplWhole := nil;
  43.   searchMask := nil;
  44.   searchExclude := nil;
  45.   searchExcludePath := nil;
  46. end.
  47.