sndPlaySound... und wenn fertig dann...

[NikoMitDaMacht]

Hallo erst mal.
1. in Public hab ich

Code:

stop : boolean

2. OnFormCreate
stop:=true; 3. einen button :

Delphi-Quellcode:

if stop=true then 
    begin 
        if sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault) then
           begin
           button1.caption:='STOP';
           timer1.enabled:=true;
           end;
    end

else
    begin
    stop:=true;
    sndPlaySound(nil, snd_sync or snd_NoDefault);
    button1.caption:='PLAY'
    end;

4. den timer1 (interval=1)

Delphi-Quellcode:

if button1.Caption='STOP' then stop:=false;
timer1.enabled:=false;

das ganze klappt auch wunderbar so (wenn ich auf button1 klicke spielt er was und wenn ich noch mal klick dann nicht)
doch jetzt würd ich gerne das ganze noch so haben dass wenn er die wave komplett gespielt hat, er
dass ...

Delphi-Quellcode:

button1.caption:='PLAY';
stop:=true;

...macht.
rafft den code jemand?