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 |