Forum: Sonstige Fragen zu Delphi
Delphi
by SleepyMaster,
1. Mai 2004
procedure TForm1.Button1Click(Sender:TObject);
begin
if Button1.Caption = 'PLAY' then
begin
Button1.Caption:='STOP';
Timer1.Enabled:=true;
sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault);
end
else
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by SleepyMaster,
1. Mai 2004
procedure TForm1.Button1Click(Sender:TObject);
begin
if Button1.Caption = 'PLAY' then
begin
Application.ProcessMessages;
Button1.Caption:='STOP';
sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault);
Application.ProcessMessages;
Button1Click(Button1);
end