Sounds for WPF

[RedAngel]

.dll file for play sounds :

Code:
library WPSound;

uses
mmsystem;

procedure wpPlaySound(SoundFile: pchar;Loop: integer = 0); stdcall;
begin
if Loop=1 then PlaySound(SoundFile,0,SND_ASYNC or SND_LOOP)
else PlaySound(SoundFile,0,SND_ASYNC);
end;

procedure wpStopSound; stdcall;
begin
PlaySound(0,0,SND_PURGE);
end;

exports wpPlaySound, wpStopSound;

begin
end.

How to use in script? :

Code :
var
hlib : handle;

const DLLname = 'dll\wpsound.dll'; // ôàéë DLL

procedure OnCreate;
begin
hlib:=gDLL.LoadLib(DLLname);
end;

procedure OnDestroy;
begin
gDLL.FreeLib(hlib);
end;

BEGIN
gDLL.CallFunc3(hlib,'wpPlaySound',_gCustomDir+'Err or.wav',0,null);
//gDLL.CallFunc3(hlib,'wpStopSound',null,null,null);
END.

Code:
gDLL.CallFunc3(hlib,'wpPlaySound',_gCustomDir+'Err or.wav',0,null);

1 times the sound plays. if 2 to 1 on the parameters, the sound will be reproduced cyclically until the procedure call wpStopSound:

Code:
gDLL.CallFunc3(hlib,'wpStopSound',null,null,null);


For example ---->RapidShare: Easy Filehosting

[killerwave7]

Originally Posted by jostikaas

uhm , i dont get it

instead of just saying "uh i dont get it" try to say what exactly is your problem, if you truly dont get any of it, try sending a private message instead of posting here that way you can actually talk to the guy who started the thread and get his advice simple and easy... if we had 10 ppl who posted "i dont get it" that wouldnt do anything useful at all