|
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,
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
-----
|
|
|
Zitat
|