Subversion Repositories spacemission

Rev

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;