uGlobals.pas 636 B

123456789101112131415161718192021222324252627282930313233343536
  1. //
  2. // uGlobals for GLSViewer
  3. //
  4. unit uGlobals;
  5. interface
  6. uses
  7. System.SysUtils,
  8. System.IniFiles;
  9. const
  10. //cRegistryKey = 'Software\GLSViewer';
  11. RegGLSViewer = PathDelim + 'SOFTWARE' + PathDelim + 'GLSViewer' + PathDelim;
  12. var
  13. ExePath: TFileName;
  14. ModelPath: TFileName;
  15. TexturePath: TFileName;
  16. IniFile: TIniFile;
  17. Language: integer;
  18. GeneralSection: string = RegGLSViewer + 'General';
  19. SplashStart : Boolean;
  20. TipOfTheDay : Boolean;
  21. //==========================================================================
  22. implementation
  23. //==========================================================================
  24. end.