下载：keyboard钩子内有一个procedure能发声但不能发资源文件的声音.rar
//把工程保存为KeyBoarHook.dpr,并实现如下：以下知识都来自万一老师的博客
library KeyBoarHook;
{$R 'New1.res' 'New1.rc'}
{$R *.dres}
uses
SysUtils,
Windows,
Messages,
Classes,
DirectSound,
MMSystem,
ReadWave in 'ReadWave.pas';//这个文件是万一老师编的同时播放多个声音文件的单元，
//ReadWave 是上面重新定义的单元; //ReadWave 是上面重新定义的单元
{$R *.res}
const KeyPressMask = $80000000;//掩码常量，让按一次只发声一次
var
//tada: Pointer;
dllHandle:THandle;
keyboardhook: HHOOK; {钩子变量}
myDSound: IDirectSound8;
bufs: array[0..5] of IDirectSoundBuffer; //缓冲区数组, 用于装载资源文件中的三个 WAVE 文件
{使用资源文件建立缓冲区并播放}
procedure PlayResourceWave(ResName: string; var buf: IDirectSoundBuffer; loop: Boolean=false);
var
bufDesc: TDSBufferDesc;
wav: TReadWave;
p1: Pointer;
n1: DWORD;
begin
buf := nil;
wav := TReadWave.Create;
if not wav.OpenResource(ResName) then
begin
wav.Free;
Exit;
end;
ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));
bufDesc.dwSize := SizeOf(TDSBufferDesc);
bufDesc.dwFlags := DSBCAPS_STATIC;
bufDesc.dwBufferBytes := wav.Size;
bufDesc.lpwfxFormat := @wav.Format;
myDSound.CreateSoundBuffer(bufDesc, buf, nil);
buf.Lock(0, 0, @p1, @n1, nil, nil, DSBLOCK_ENTIREBUFFER);
wav.Read(p1, n1);
buf.Unlock(p1, n1, nil, 0);
if loop then buf.Play(0, 0, DSBPLAY_LOOPING) else buf.Play(0, 0, 0);
wav.Free;
end;
//初始化声音设备
function Setstart: Boolean; stdcall;
begin
dllHandle:=GetModuleHandle('KeyBoarHook.dll'); //取得dll自己的句柄
DirectSoundCreate8(nil, myDSound, nil);
myDSound.SetCooperativeLevel(dllHandle, DSSCL_NORMAL);//原来这里使用Handle会出错，现在把它改成dll自己的句柄
end;
procedure Playsound2;stdcall;
var
ss:string;
begin
ss:='c:\yp\0.wav';
playsound(pchar(ss),0,SND_ASYNC);
PlayResourceWave('wav_1', bufs[0], False);//这里不起作用
end;
function Playsound1: Boolean; stdcall;
var
ss:string;
begin
ss:='c:\yp\0.wav';
playsound(pchar(ss),0,SND_ASYNC);
PlayResourceWave('wav_1', bufs[0], False);//这里不起作用
end;
function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
info:string;
ss:string;
jianno:integer;
niany:bool;
begin
if ((lParam and KeyPressMask)= 0) and (wParam = 96) then Playsound(pchar('wav1'),hinstance,SND_ASYNC or snd_resource);
Result := CallNextHookEx(keyboardhook, nCode, wParam, lParam);
end;
{建立钩子}
function SetHook: Boolean; stdcall;
const
WH_KEYBOARD_LL=13;
begin
keyboardhook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, HInstance, 0);//这里WH_KEYBOARD_会出错
Result := keyboardhook <> 0;
end;
{释放钩子}
function DelHook: Boolean; stdcall;
begin
Result := UnhookWindowsHookEx(keyboardhook);
end;
{释放次缓冲区，不然会内存出错}
function Delbufs: Boolean; stdcall;
var
iii:Integer;
begin
for iii := Low(bufs) to High(bufs) do bufs[iii] := nil;
myDSound := nil;
end;
{按 DLL 的要求输出函数}
exports
SetHook ,//name 'SetHook',
DelHook ,//name 'DelHook',
KeyHook ,
Setstart,
Playsound1,
Playsound2,//name 'KeyHook',
delbufs;
begin
end.