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.137 by h677, Sun Feb 15 03:42:10 2009 UTC revision 1.138 by h677, Sat Mar 28 05:59:56 2009 UTC
# Line 1224  begin Line 1224  begin
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';
# Line 1894  var Line 1889  var
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;

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

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