|
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!
|
