Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.122 by h677, Tue Jun 19 15:43:14 2007 UTC revision 1.123 by h677, Tue Jun 26 15:49:25 2007 UTC
# Line 994  end; Line 994  end;
994  //初期化ファイル名取得(パス+ファイル名)  //初期化ファイル名取得(パス+ファイル名)
995  function TSetting.GetFileName(): string;  function TSetting.GetFileName(): string;
996  begin  begin
997          Result := ExtractFilePath(Application.ExeName) + INI_FILE_NAME;          Result := GetAppDir + INI_FILE_NAME;
998  end;  end;
999    
1000  //板更新用URL設定ファイル名(パス+ファイル名)  //板更新用URL設定ファイル名(パス+ファイル名)
1001  function TSetting.GetBoardURLFileName(): string;  function TSetting.GetBoardURLFileName(): string;
1002  begin  begin
1003          Result := ExtractFilePath(Application.ExeName) + BOARD_URL_INI_FILE_NAME;          Result := GetAppDir + BOARD_URL_INI_FILE_NAME;
1004  end;  end;
1005    
1006  //設定ファイル読込  //設定ファイル読込
# Line 1128  begin Line 1128  begin
1128                  //ResAnchorjamp                  //ResAnchorjamp
1129                  ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);                  ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);
1130                  //ログフォルダ                  //ログフォルダ
1131                  LogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log');                  LogFolder := ini.ReadString('Folder', 'LogFolder', GetAppDir + 'Log');
1132                  NewLogFolder := '';                  NewLogFolder := '';
1133    
1134                  //板URL                  //板URL
# Line 1201  begin Line 1201  begin
1201                                          SoundFileName[i] := '';                                          SoundFileName[i] := '';
1202                          end;                          end;
1203                  end else begin                  end else begin
1204                          s := ExtractFileDir(Application.ExeName) + '\sound\';                          s := GetAppDir + '\sound\';
1205                          SoundFileName[0] := s + '取得成功.wav';                          SoundFileName[0] := s + '取得成功.wav';
1206                          SoundFileName[1] := s + '取得成功(差分).wav';                          SoundFileName[1] := s + '取得成功(差分).wav';
1207                          SoundFileName[2] := s + '未更新.wav';                          SoundFileName[2] := s + '未更新.wav';
# Line 1727  var Line 1727  var
1727  begin  begin
1728          ini := TMemIniFile.Create(GetFileName());          ini := TMemIniFile.Create(GetFileName());
1729          try          try
1730                  if ExtractFilePath(Application.ExeName) + 'Log' = NewLogFolder then                  if GetAppDir + 'Log' = NewLogFolder then
1731                          ini.DeleteKey('Folder', 'LogFolder')                          ini.DeleteKey('Folder', 'LogFolder')
1732                  else                  else
1733                          ini.WriteString('Folder', 'LogFolder', NewLogFolder);                          ini.WriteString('Folder', 'LogFolder', NewLogFolder);
# Line 1969  end; Line 1969  end;
1969   *************************************************************************)   *************************************************************************)
1970  function TSetting.GetBoardFileName: string;  function TSetting.GetBoardFileName: string;
1971  begin  begin
1972          Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_FILE_NAME;          Result := GetConfigDir + BOARD_FILE_NAME;
1973  end;  end;
1974    
1975  (*************************************************************************  (*************************************************************************
# Line 1977  end; Line 1977  end;
1977   *************************************************************************)   *************************************************************************)
1978  function TSetting.GetCustomBoardFileName: string;  function TSetting.GetCustomBoardFileName: string;
1979  begin  begin
1980          Result := GetAppDir + CONFIG_DIR_NAME + '\' + CUSTOMBOARD_FILE_NAME;          Result := GetConfigDir + CUSTOMBOARD_FILE_NAME;
1981  end;  end;
1982    
1983  (*************************************************************************  (*************************************************************************
1984   *ボードディレクトリ取得   *ボードディレクトリ取得(\で終わる)
1985   *************************************************************************)   *************************************************************************)
1986  function TSetting.GetBoardDir: string;  function TSetting.GetBoardDir: string;
1987  begin  begin
1988          Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_DIR_NAME + '\';          Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_DIR_NAME);
1989  end;  end;
1990    
1991  (*************************************************************************  (*************************************************************************
# Line 1998  end; Line 1998  end;
1998    
1999    
2000  (*************************************************************************  (*************************************************************************
2001   *実行ファイルフォルダ取得   *実行ファイルフォルダ取得(最後に\がある)
2002   *************************************************************************)   *************************************************************************)
2003  function TSetting.GetAppDir: string;  function TSetting.GetAppDir: string;
2004  begin  begin
# Line 2030  begin Line 2030  begin
2030  end;  end;
2031    
2032  (*************************************************************************  (*************************************************************************
2033   *Configフォルダ取得   *Configフォルダ取得(\で終わる)
2034   *************************************************************************)   *************************************************************************)
2035  function TSetting.GetConfigDir: string;  function TSetting.GetConfigDir: string;
2036  begin  begin
2037          Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME);
2038  end;  end;
2039    (*************************************************************************
2040     *CSSフォルダ取得(\で終わる)
2041     *************************************************************************)
2042  function TSetting.GetStyleSheetDir: string;  function TSetting.GetStyleSheetDir: string;
2043  begin  begin
2044          Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME);
2045  end;  end;
2046    (*************************************************************************
2047     *skinフォルダ取得(\で終わる)
2048     *************************************************************************)
2049  function TSetting.GetSkinDir: string;  function TSetting.GetSkinDir: string;
2050  begin  begin
2051          Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);
2052  end;  end;
2053    (*************************************************************************
2054     *skinヘッダファイル名取得
2055     *************************************************************************)
2056  function TSetting.GetSkinHeaderFileName: string;  function TSetting.GetSkinHeaderFileName: string;
2057  begin  begin
2058          Result := CSSFileName + SKIN_HEADER_FILE_NAME;          Result := CSSFileName + SKIN_HEADER_FILE_NAME;
2059  end;  end;
2060    (*************************************************************************
2061     *skinフッタファイル名取得
2062     *************************************************************************)
2063  function TSetting.GetSkinFooterFileName: string;  function TSetting.GetSkinFooterFileName: string;
2064  begin  begin
2065          Result := CSSFileName + SKIN_FOOTER_FILE_NAME;          Result := CSSFileName + SKIN_FOOTER_FILE_NAME;
2066  end;  end;
2067    (*************************************************************************
2068     *skin新レスファイル名取得
2069     *************************************************************************)
2070  function TSetting.GetSkinNewResFileName: string;  function TSetting.GetSkinNewResFileName: string;
2071  begin  begin
2072          Result := CSSFileName + SKIN_NEWRES_FILE_NAME;          Result := CSSFileName + SKIN_NEWRES_FILE_NAME;
2073  end;  end;
2074    (*************************************************************************
2075     *skinレスファイル名取得
2076     *************************************************************************)
2077  function TSetting.GetSkinResFileName: string;  function TSetting.GetSkinResFileName: string;
2078  begin  begin
2079          Result := CSSFileName + SKIN_RES_FILE_NAME;          Result := CSSFileName + SKIN_RES_FILE_NAME;
2080  end;  end;
2081    (*************************************************************************
2082     *skinブックマークファイル名取得
2083     *************************************************************************)
2084  function TSetting.GetSkinBookmarkFileName: string;  function TSetting.GetSkinBookmarkFileName: string;
2085  begin  begin
2086          Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME;          Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME;
2087  end;  end;
2088    (*************************************************************************
2089     *skin新着ファイル名取得
2090     *************************************************************************)
2091  function TSetting.GetSkinNewmarkFileName: string;  function TSetting.GetSkinNewmarkFileName: string;
2092  begin  begin
2093          Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;          Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;
2094  end;  end;
2095    (*************************************************************************
2096     *NGワードディレクトリ取得(\で終わる)
2097     *************************************************************************)
2098  function TSetting.GetNGWordsDir: string;  function TSetting.GetNGWordsDir: string;
2099  begin  begin
2100          Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME);
2101  end;  end;
2102    (*************************************************************************
2103     *Boardプラグインディレクトリ取得(\で終わる)
2104     *************************************************************************)
2105  function TSetting.GetBoardPlugInDir: string;  function TSetting.GetBoardPlugInDir: string;
2106  begin  begin
2107          Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME);
# Line 2112  begin Line 2132  begin
2132                  FileExists( GetSkinHeaderFileName );                  FileExists( GetSkinHeaderFileName );
2133    
2134  end;  end;
2135    (*************************************************************************
2136     *samba設定ファイル名取得
2137     *************************************************************************)
2138  function TSetting.GetSambaFileName: string;  function TSetting.GetSambaFileName: string;
2139  begin  begin
2140          Result := GetAppDir + SAMBATIME_FILE_NAME;          Result := GetAppDir + SAMBATIME_FILE_NAME;

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26