Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

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

revision 1.90 by eggcake, Sun Apr 13 04:20:24 2008 UTC revision 1.91 by h677, Sun Jul 27 16:43:49 2008 UTC
# Line 1325  begin Line 1325  begin
1325  end;  end;
1326    
1327  procedure TOptionDialog.SoundPlayButtonClick(Sender: TObject);  procedure TOptionDialog.SoundPlayButtonClick(Sender: TObject);
1328    var
1329        s : String;
1330  begin  begin
1331          if not FileExists(SoundFileEdit.Text) then begin      s := SoundFileEdit.Text;
1332        if (AnsiPos('.\', s) = 1) then begin
1333            s := GikoSys.Setting.GetAppDir + Copy(s, 2, Length(s));
1334        end;
1335            if not FileExists(s) then begin
1336                  MsgBox(Handle, '存在しないファイルです', 'エラー', MB_ICONSTOP or MB_OK);                  MsgBox(Handle, '存在しないファイルです', 'エラー', MB_ICONSTOP or MB_OK);
1337                  SoundFileEdit.Text := '';                  SoundFileEdit.Text := '';
1338                  Exit;                  Exit;
1339          end;          end;
1340          if not sndPlaySound(PChar(SoundFileEdit.Text), SND_ASYNC or SND_NOSTOP) then begin          if not sndPlaySound(PChar(s), SND_ASYNC or SND_NOSTOP) then begin
1341                  sndPlaySound(nil, SND_ASYNC);                  sndPlaySound(nil, SND_ASYNC);
1342          end;          end;
1343  end;  end;

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

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