dll i wav fajlovi...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

procedure PlaySnd(snd_name: Byte); var   LibHandle: THandle;   tada: Pointer; begin   LibHandle:=Loadlibrary('myfile.dll');   try     if LibHandle<>0 then     begin       tada := Pointer(FindResource(LibHandle, 'RCData', 'click_snd'));       if tada <> nil then       begin         tada := Pointer(LoadResource(LibHandle, HRSRC(tada)));         if tada <> nil then tada := LockResource(HGLOBAL(tada));       end;       sndPlaySound(tada, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);     end;   finally   end; end;

Poz,
kako mogu da ucitam wav fajl koji se nalazi u dll?
Hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ovaj red

tada := Pointer(FindResource(LibHandle, 'RCData', 'click_snd'));

bi trebalo da bude

tada := Pointer(FindResource(LibHandle, 'click_snd', RT_RCDATA));

Takodje, u finally delu oslobodi handle lib-a [FreeLibrary(LibHandle)], jer ce sa svakim novim pozivom funkcije novi res wav file-a ostati zakljucan u memoriji, a sve do zavrsetka procesa.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

RADI! Hvala ti puno.