sndPlaySound... und wenn fertig dann...

[NikoMitDaMacht]

Ahh so klappts

Delphi-Quellcode:

if Button1.Caption = 'PLAY' then
  begin 
  Button1.Caption:='STOP';
  Application.ProcessMessages;
  PlaySound('C:\1.wav', snd_Async or snd_NoDefault, 0);
  Application.ProcessMessages;
  button1.Caption:='PLAY'
  end 
else 
  begin 
  Button1.Caption:='PLAY' ;
  sndPlaySound(nil, snd_sync or snd_NoDefault);  
  end;

weiss zwar nich warum ich am ende von PlaySound eine 0 machen musste aber es funktioniert.
DANKE