Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Option.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |