Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4 | Rev 16 | ||
---|---|---|---|
Line 2141... | Line 2141... | ||
2141 | out ppDI: {$IFDEF UNICODE}IDirectInputW{$ELSE}IDirectInputA{$ENDIF}; punkOuter: IUnknown): HRESULT; stdcall; |
2141 | out ppDI: {$IFDEF UNICODE}IDirectInputW{$ELSE}IDirectInputA{$ENDIF}; punkOuter: IUnknown): HRESULT; stdcall; |
2142 | begin |
2142 | begin |
2143 | if FDirectInput=nil then |
2143 | if FDirectInput=nil then |
2144 | begin |
2144 | begin |
2145 | try |
2145 | try |
2146 | TDirectInputCreate(DXLoadLibrary('DInput.dll', 'DirectInputCreateA')) |
2146 | TDirectInputCreate(DXLoadLibrary('DInput.dll', {$IFDEF UNICODE}'DirectInputCreateW'{$ELSE}'DirectInputCreateA'{$ENDIF})) |
2147 | (HInstance, DIRECTINPUT_VERSION, FDirectInput, nil); |
2147 | (HInstance, DIRECTINPUT_VERSION, FDirectInput, nil); |
2148 | except |
2148 | except |
2149 | FDirectInput := nil; |
2149 | FDirectInput := nil; |
2150 | end; |
2150 | end; |
2151 | end; |
2151 | end; |