delphi之声音资源(*.res)的编译方法

uses mmsystem; 
 
var FindHandle, ResHandle: THandle; 
    ResPtr: Pointer; 
begin 
  FindHandle:=FindResource(HInstance, 'mymusic', '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_ASync );//播放这个音乐. 
       UnlockResource(ResHandle); 
    end; 
    FreeResource(FindHandle); 
  end; 
end;