Windowsでポインティングデバイスのリストを取得する（パスカル）

Question

私はLazarus/FPCを使用していますが、Windowsでポインティングデバイスのリストを取得する方法を探しています - そして、最終的に特定のデバイスを無効にして有効にできるようにします。

Google検索では、MSDNのthisとフリーパスカルのwikiのthisが表示されました。

これは良い出発点のようですが、残念ながら私は最初のハードルに落ちています...この例ではmanagerオブジェクトを作成する方法を理解できません。

MSDNの例は（C＃）とである：

Iが部分としてパスカルに変換している

private void PopulatePointers(TreeView tvDevices) 
{ 
    //Add "Pointer Devices" node to TreeView 
    TreeNode pointerNode = new TreeNode("Pointer Devices"); 
    tvInputDevices.Nodes.Add(pointerNode); 

    //Populate Attached Mouse/Pointing Devices 
    foreach(DeviceInstance di in 
     Manager.GetDevices(DeviceClass.Pointer,EnumDevicesFlags.AttachedOnly)) 
    { 

     //Get device name 
     TreeNode nameNode = new TreeNode(di.InstanceName); 
     nameNode.Tag = di; 
     TreeNode guidNode = new TreeNode(
      "Guid = " + di.InstanceGuid); 

     //Add nodes 
     nameNode.Nodes.Add(guidNode); 
     pointerNode.Nodes.Add(nameNode); 
    } 

} 

：

uses windows, DirectInput; 

procedure getPointingDevices(); 
begin 
    for pointingDevice in Manager.GetDevices(DeviceType.Keyboard,EnumDevicesFlags.AttachedOnly) do 
    begin 
    devicesTree.Items.AddChild(devicesTree.Items.TopLvlItems[0],pointingDevice.InstanceName); 
    end; 

    devicesTree.Items.TopLvlItems[0].Expand(true); 
end; 

及びIはDirectInput.pas、DirectX.inc、DXTypes.pas、Jedi.inc、Xinput.pasを含んでいた（いくつかのそのうち実際には必要ないかもしれませんが、私は後でそれを作業します）。

明らかに、そのメソッドにアクセスできるようにするためにはManagerオブジェクトを作成する必要がありますが、これまで読んだことのあるドキュメントからどうすればいいのかわかりません。

Answer 1

あなたが探しているのは、DirectInput IDirectInput8 COMインターフェイスです。

入力デバイスを列挙するには、DirectInput8Create()関数を使用してIDirectInput8インターフェイスを取得し、EnumDevices()またはEnumDevicesBySemantics()メソッドを使用します。例：

uses 
    Windows, DirectInput; 

function MyEnumCallback(lpddi: LPCDIDEVICEINSTANCE; pvRef: Pointer): BOOL; stdcall; 
var 
    Tree: TTreeView; 
begin 
    Tree := TTreeView(pvRef); 
    Tree.Items.AddChild(Tree.Items.TopLvlItems[0], lpddi.tszInstanceName); 
end; 

procedure getPointingDevices; 
var 
    DI: IDirectInput8; 
begin 
    OleCheck(DirectInput8Create(HInstance, DIRECTINPUT_VERSION, IDirectInput8, @DI, nil)); 
    OleCheck(DI.EnumDevices(DI8DEVCLASS_POINTER, @MyEnumCallback, devicesTree, DIEDFL_ATTACHEDONLY)); 
    devicesTree.Items.TopLvlItems[0].Expand(true); 
end;