OK... Maus unter
DirectX:
1. Du must due Maus abfragen mit
Delphi-Quellcode:
var
buffer : TDIMouseState;
begin
// Zustand auslesen
if (DIDMouse.GetDeviceState(SizeOf(TDIMouseState), @buffer)<>DI_OK) then begin
DIDMouse.Acquire;
end;
end;
Der Record sieht so aus
Delphi-Quellcode:
PDIMouseState = ^TDIMouseState;
TDIMouseState = packed record
lX : LongInt;
lY : LongInt;
lZ : LongInt;
rgbButtons : array [0..3] of Byte; // up to 4 buttons
end;
Das Interface geht auf DirectInput ( bei mir noch Version 8
)
DIDMouse : IDirectInputDevice8;
Hoffe es hilft...