Как проиграть wav из ресурса не сохраняя его в файл?

Previous  Top  Next

    
 

 

 

Code:

{ ... }

var

FindHandle, ResHandle: THandle;

ResPtr: Pointer;

begin

FindHandle := FindResource(HInstance, 'Name of your resource', 'WAVE');

if FindHandle <> 0 then

begin

   ResHandle := LoadResource(HInstance, FindHandle);

   if ResHandle <> 0 then

   begin

     ResPtr := LockResource(ResHandle);

     if ResPtr <> nil then

       SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);

     UnlockResource(ResHandle);

   end;

   FreeResource(FindHandle);

end;

end;

 

©Drkb::03608

Взято с Delphi Knowledge Base: http://www.baltsoft.com/