Sounds aus Ressourcen abspielen

[Daniel B]

Delphi-Quellcode:

{$R WaveResource.res} 

procedure TfrmMAIN.Button1Click(Sender: TObject); 
begin 
  // Sounds stoppen 
  PlaySound(nil,0,0); 
  // Wavedatei aus Resource abspielen (SND_RESOURCE) und 
  // nicht warten, bis das Abspielen beendet ist (SND_ASYNC) 
  PlaySound('WaveResource',hInstance,SND_RESOURCE or SND_ASYNC); 
end;

Von Christian Seehase!

Grüsse, Daniel