95 lines
2.4 KiB
ObjectPascal
95 lines
2.4 KiB
ObjectPascal
unit LogiJoystickDLL;
|
|
|
|
interface
|
|
uses
|
|
Windows,
|
|
|
|
DirectInput;
|
|
|
|
type
|
|
TLogiPanelButton = (LOGI_NONE = -1,
|
|
LOGI_P1 = 0,
|
|
LOGI_P2 = 1,
|
|
LOGI_P3 = 2,
|
|
LOGI_P4 = 3,
|
|
LOGI_P5 = 4,
|
|
LOGI_P6 = 5,
|
|
LOGI_P7 = 6,
|
|
LOGI_P8 = 7);
|
|
|
|
TLogiColor = (LOGI_OFF = 0,
|
|
LOGI_GREEN = 1,
|
|
LOGI_AMBER = 2,
|
|
LOGI_RED = 3);
|
|
|
|
|
|
TSetButtonColor = function(device: IDirectInputDevice8; button: TLogiPanelButton; color: TLogiColor): DWORD; cdecl;
|
|
TSetAllButtonsColor = function(device: IDirectInputDevice8; color: TLogiColor): DWORD; cdecl;
|
|
TIsButtonColor = function(device: IDirectInputDevice8; button: TLogiPanelButton; color: TLogiColor): BOOL; cdecl;
|
|
TSetLEDs = function(device: IDirectInputDevice8; redLEDs, greenLEDs: Byte): DWORD; cdecl;
|
|
TGetLEDs = function(device: IDirectInputDevice8; out redLEDs, greenLEDs: Byte): DWORD; cdecl;
|
|
|
|
|
|
function LogiJoystickDLLInitialized: Boolean;
|
|
|
|
const
|
|
VENDOR_LOGITECH = $046D;
|
|
|
|
PRODUCT_G940_JOYSTICK = $C2A8;
|
|
PRODUCT_G940_THROTTLE = $C2A9;
|
|
PRODUCT_G940_PEDALS = $C2AA;
|
|
|
|
|
|
var
|
|
SetButtonColor: TSetButtonColor;
|
|
SetAllButtonsColor: TSetAllButtonsColor;
|
|
IsButtonColor: TIsButtonColor;
|
|
SetLEDs: TSetLEDs;
|
|
GetLEDs: TGetLEDs;
|
|
|
|
|
|
implementation
|
|
const
|
|
LogiJoystickDLLFileName = 'LogiJoystickDLL.dll';
|
|
|
|
var
|
|
LogiJoystickDLLHandle: THandle;
|
|
|
|
|
|
function LogiJoystickDLLInitialized: Boolean;
|
|
begin
|
|
Result := (LogiJoystickDLLHandle <> 0);
|
|
end;
|
|
|
|
procedure LoadLogiJoystickDLL;
|
|
begin
|
|
LogiJoystickDLLHandle := LoadLibrary(LogiJoystickDLLFileName);
|
|
if LogiJoystickDLLHandle <> 0 then
|
|
begin
|
|
@SetButtonColor := GetProcAddress(LogiJoystickDLLHandle, 'SetButtonColor');
|
|
@SetAllButtonsColor := GetProcAddress(LogiJoystickDLLHandle, 'SetAllButtonsColor');
|
|
@IsButtonColor := GetProcAddress(LogiJoystickDLLHandle, 'IsButtonColor');
|
|
@SetLEDs := GetProcAddress(LogiJoystickDLLHandle, 'SetLEDs');
|
|
@GetLEDs := GetProcAddress(LogiJoystickDLLHandle, 'GetLEDs');
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure UnloadLogiJoystickDLL;
|
|
begin
|
|
if LogiJoystickDLLHandle <> 0 then
|
|
begin
|
|
FreeLibrary(LogiJoystickDLLHandle);
|
|
LogiJoystickDLLHandle := 0;
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
LoadLogiJoystickDLL;
|
|
|
|
finalization
|
|
UnloadLogiJoystickDLL;
|
|
|
|
end.
|