Subversion Repositories spacemission

Rev

Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 57
Line 30... Line 30...
30 
{$IFDEF D3DRM}
 30 
{$IFDEF D3DRM}
31 
function D3DRMErrorMsg(ErrorCode: HRESULT): string;
 31 
function D3DRMErrorMsg(ErrorCode: HRESULT): string;
32 
{$ENDIF}
 32 
{$ENDIF}
33 
function DSoundErrorMsg(ErrorCode: HRESULT): string;
 33 
function DSoundErrorMsg(ErrorCode: HRESULT): string;
34 
function DInputErrorMsg(ErrorCode: HRESULT): string;
 34 
function DInputErrorMsg(ErrorCode: HRESULT): string;
- 
 
 35 
{$IFDEF UseDirectPlay}
35 
function DPlayErrorMsg(ErrorCode: HRESULT): string;
 36 
function DPlayErrorMsg(ErrorCode: HRESULT): string;
- 
 
 37 
{$EndIf} // UseDirectPlay
36 
 
 38 
 
37 
implementation
 39 
implementation
38 
 
 40 
 
39 
uses DXConsts;
 41 
uses DXConsts;
40 
 
 42 
 
Line 293... Line 295...
293 
    HRESULT(E_PENDING)                  : Result := 'E_PENDING';
 295 
    HRESULT(E_PENDING)                  : Result := 'E_PENDING';
294 
  else
 296 
  else
295 
    Result := WindowsErrorMsg(ErrorCode);
 297 
    Result := WindowsErrorMsg(ErrorCode);
296 
  end;
 298 
  end;
297 
end;
 299 
end;
- 
 
 300 
{$IFDEF UseDirectPlay}
298 
{$IfDef DX9}
 301 
{$IfDef DX9}
299 
function DPlayErrorMsg(ErrorCode: HRESULT): string;
 302 
function DPlayErrorMsg(ErrorCode: HRESULT): string;
300 
begin
 303 
begin
301 
  case ErrorCode of
 304 
  case ErrorCode of
302 
    DPN_OK                               : Result := 'DPN_OK';
 305 
    DPN_OK                               : Result := 'DPN_OK';
Line 426... Line 429...
426 
  else
 429 
  else
427 
    Result := WindowsErrorMsg(ErrorCode);
 430 
    Result := WindowsErrorMsg(ErrorCode);
428 
  end;
 431 
  end;
429 
end;
 432 
end;
430 
{$EndIf}
 433 
{$EndIf}
- 
 
 434 
{$EndIf} // UseDirectPlay
431 
end.
 435 
end.
432 

            436