1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| unit son;
interface
uses
fmod, fmodtypes, fmoderrors, Windows, SysUtils;
procedure music(test:PWideChar);
implementation
procedure music(test:PWideChar);
var
musique: PFMusicModule;
begin
if FSOUND_Init(44100, 2, 0) then
writeln('Init Ok')
else
writeln('Init False');
if FileExists(test) then
writeln('Link Ok')
else
write('Link False');
musique := FSOUND_Stream_Open(test, 0, 0, 0);
// if FSOUND_SetVolume(1 , 200) then
// writeln('Volume Ok')
// else
// write('Volume False');
FSOUND_Stream_Play(FSOUND_FREE, musique);
// FSOUND_Stream_Close(musique);
// FSOUND_Close();
end;
end. |
