MFV (DTMF) Töne generieren

[edosoft]

hmm... also bei mir funktioniert da gar nichts.

Delphi-Quellcode:

const
  DELAY = 100;
  SpecificDelay = 100;
  Number = '0123';
var
   i : Integer;
begin
     for i := 1 to Length(Number) do begin
         case Number[i] of
             '0' : begin PlaySound('DTMF0', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '1' : begin PlaySound('DTMF1', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '2' : begin PlaySound('DTMF2', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '3' : begin PlaySound('DTMF3', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '4' : begin PlaySound('DTMF4', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '5' : begin PlaySound('DTMF5', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '6' : begin PlaySound('DTMF6', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '7' : begin PlaySound('DTMF7', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '8' : begin PlaySound('DTMF8', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             '9' : begin PlaySound('DTMF9', 0, SND_RESOURCE or SND_SYNC); Sleep(DELAY); end;
             ',' : Sleep(SpecificDelay);
         end;
     end;
end;

er spielt nichts ab.

auch hier:

Delphi-Quellcode:

begin
PlaySound('DTMF0', 0, SND_RESOURCE or SND_SYNC);
end;

passiert nichts.
muss ich das "DTMF0" vielleicht erst irgen dwie einbinden?

mfG.