DirectInput如何使用？？？(100分)

var
lpDirectInput:IDirectInput;// DirectInput object
lpMouse:IDirectInputDeviceA;
Hr:HResult;
dLongint;
begin

DirectInputCreateA(THandle(lpDirectInput),DIRECTINPUT_VERSION,lpDirectInput,nil);


//Hr:=lpDirectInput.CreateDevice(GUID_SysMouse,lpMouse,nil);
//hr := lpMous.SetCooperativeLevel(hWnd,DISCL_EXCLUSIVE or DISCL_FOREGROUND);
分不够再加。需要DELPHI的代码。