| 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 |
//設定ファイル読込 |
//設定ファイル読込 |
| 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 |
| 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'; |
| 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); |
| 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 |
(************************************************************************* |
(************************************************************************* |
| 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 |
(************************************************************************* |
(************************************************************************* |
| 1998 |
|
|
| 1999 |
|
|
| 2000 |
(************************************************************************* |
(************************************************************************* |
| 2001 |
*実行ファイルフォルダ取得 |
*実行ファイルフォルダ取得(最後に\がある) |
| 2002 |
*************************************************************************) |
*************************************************************************) |
| 2003 |
function TSetting.GetAppDir: string; |
function TSetting.GetAppDir: string; |
| 2004 |
begin |
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); |
| 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; |