Delphi WAV Datei abspielen?

Thema durchsuchen

Ansicht

Themen-Optionen

WAV Datei abspielen?

Ein Thema von Pseudemys Nelsoni · begonnen am 21. Dez 2004 · letzter Beitrag vom 21. Dez 2004

Vorheriger Beitrag

Nächster Beitrag

Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge

Delphi 3 Standard

Re: WAV Datei abspielen?

21. Dez 2004, 07:30

Hallo Pseudemys Nelsoni,

zusammenfalten · markieren

Delphi-Quellcode:

			procedure PlayWaveSound(ResourceType, ResourceName: PChar);

var

  FindHandle, ResHandle: THandle;

  ResPtr: Pointer;

begin

  FindHandle := FindResource(HInstance, ResourceName, ResourceType);

  ResHandle := LoadResource(HInstance, FindHandle);

  ResPtr := LockResource(ResHandle);

  sndPlaySound(PChar(ResPtr), snd_Async OR snd_Memory);

  UnlockResource(ResHandle);

  FreeResource(FindHandle);

end;

der Aufruf wie folgt ...
PlayWaveSound('WAVE', 'WAVE_1'); sorry
bye
Claus

Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----