ExternalFilePath.pas

   1 unit ExternalFilePath;
   2
   3 interface
   4
   5 uses
   6         Windows, Classes, SysUtils,
   7         ExternalBoardPlugInMain;
   8
   9 implementation
  10
  11 uses GikoSystem;
  12
  13 // *************************************************************************
  14 // \83u\83\89\83E\83U\96{\91Ì\82ª\92u\82¢\82Ä\82 \82é\83t\83H\83\8b\83_
  15 // *************************************************************************
  16 function ApplicationFolder : PChar; stdcall;
  17 begin
  18
  19         Result := CreateResultString( GikoSys.GetAppDir );
  20
  21 end;
  22
  23 // *************************************************************************
  24 // \8f\89\8aú\90Ý\92è\83t\83H\83\8b\83_
  25 // *************************************************************************
  26 function PreferencesFolder : PChar; stdcall;
  27 begin
  28
  29         Result := CreateResultString( GikoSys.GetConfigDir );
  30
  31 end;
  32
  33 // *************************************************************************
  34 // \8f\89\8aú\90Ý\92è\83t\83@\83C\83\8b
  35 // *************************************************************************
  36 function PreferencesFile : PChar; stdcall;
  37 begin
  38
  39         Result := CreateResultString( GikoSys.GetAppDir + 'gikoNavi.ini' );
  40
  41 end;
  42
  43 // *************************************************************************
  44 // \83\8d\83O\83t\83H\83\8b\83_
  45 // *************************************************************************
  46 function LogFolder : PChar; stdcall;
  47 begin
  48
  49         Result := CreateResultString( GikoSys.Setting.LogFolderP );
  50
  51 end;
  52
  53 // *************************************************************************
  54 // CSS \83t\83H\83\8b\83_
  55 // *************************************************************************
  56 function CSSFolder : PChar; stdcall;
  57 begin
  58
  59         Result := CreateResultString( GikoSys.GetStyleSheetDir );
  60
  61 end;
  62
  63 // *************************************************************************
  64 // \83X\83L\83\93\82ð\93ü\82ê\82Ä\82¨\82\83t\83H\83\8b\83_
  65 // *************************************************************************
  66 function SkinFolder : PChar; stdcall;
  67 begin
  68
  69         Result := CreateResultString( GikoSys.GetSkinDir );
  70
  71 end;
  72
  73 // *************************************************************************
  74 // \8eg\97p\82µ\82Ä\82¢\82é CSS / \83X\83L\83\93
  75 // *************************************************************************
  76 function SkinFile : PChar; stdcall;
  77 begin
  78
  79         Result := CreateResultString( GikoSys.Setting.CSSFileName );
  80
  81 end;
  82
  83 // *************************************************************************
  84 // \82 \82Ú\81[\82ñ\8bK\91¥\82ª\92u\82¢\82Ä\82 \82é\83f\83B\83\8c\83N\83g\83\8a
  85 // *************************************************************************
  86 function AbonFolder : PChar; stdcall;
  87 begin
  88
  89         Result := CreateResultString( GikoSys.Setting.GetNGWordsDir );
  90
  91 end;
  92
  93 // *************************************************************************
  94 // \8eg\97p\82µ\82Ä\82¢\82é\82 \82Ú\81[\82ñ\8bK\91¥
  95 // *************************************************************************
  96 function AbonFile : PChar; stdcall;
  97 begin
  98
  99         Result := CreateResultString( GikoSys.FAbon.GetNGwordpath );
 100
 101 end;
 102
 103 exports
 104         ApplicationFolder,
 105         PreferencesFolder,
 106         PreferencesFile,
 107         LogFolder,
 108         CSSFolder,
 109         SkinFolder,
 110         SkinFile,
 111         AbonFolder,
 112         AbonFile;
 113
 114 end.
 115