Thema: Delphi Wave

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#2
  Alt 11. Dez 2002, 12:34
Moin NeoDeluxe,

unter der Annahme, das die Resourcendatei WaveResource.res heisst, und die Resource WaveResource, kannst Du diese so einbinden und abspielen:
(unter Uses muss noch mmsystem eingetragen werden)

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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat