| 1224 |
for i := 0 to GetSoundCount - 1 do begin |
for i := 0 to GetSoundCount - 1 do begin |
| 1225 |
SoundFileName[i] := ini.ReadString('Sound', SoundName[i], ''); |
SoundFileName[i] := ini.ReadString('Sound', SoundName[i], ''); |
| 1226 |
// 相対参照対策 |
// 相対参照対策 |
|
s := SoundFileName[i]; |
|
|
if (AnsiPos('.\', SoundFileName[i]) = 1) then begin |
|
|
s := GetAppDir |
|
|
+ Copy(SoundFileName[i], 2, Length(SoundFileName[i])); |
|
|
end; |
|
| 1227 |
// ファイルの存在チェック |
// ファイルの存在チェック |
| 1228 |
if not FileExists(SoundFileName[i]) then begin |
if not FileExists(ExpandFileName(SoundFileName[i])) then begin |
| 1229 |
SoundFileName[i] := ''; |
SoundFileName[i] := ''; |
| 1230 |
end; |
end; |
| 1231 |
end; |
end; |
| 1232 |
end else begin |
end else begin |
| 1233 |
s := GetAppDir + '\sound\'; |
s := 'Sound\'; |
| 1234 |
SoundFileName[0] := s + '取得成功.wav'; |
SoundFileName[0] := s + '取得成功.wav'; |
| 1235 |
SoundFileName[1] := s + '取得成功(差分).wav'; |
SoundFileName[1] := s + '取得成功(差分).wav'; |
| 1236 |
SoundFileName[2] := s + '未更新.wav'; |
SoundFileName[2] := s + '未更新.wav'; |
| 1889 |
begin |
begin |
| 1890 |
for i := 0 to GetSoundCount - 1 do begin |
for i := 0 to GetSoundCount - 1 do begin |
| 1891 |
if SoundName[i] = Name then begin |
if SoundName[i] = Name then begin |
| 1892 |
Result := SoundFileName[i]; |
SysUtils.SetCurrentDir(GetAppDir); |
| 1893 |
// 相対パス対策 |
Result := ExpandFileName(SoundFileName[i]); |
|
if (AnsiPos('.\', Result) = 1) then begin |
|
|
Result := GetAppDir |
|
|
+ Copy(Result, 2, Length(Result)); |
|
|
end; |
|
| 1894 |
Exit; |
Exit; |
| 1895 |
end; |
end; |
| 1896 |
end; |
end; |