Rev 16 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 16 | Rev 21 | ||
|---|---|---|---|
| Line 49... | Line 49... | ||
| 49 | {$MINENUMSIZE 4} |
49 | {$MINENUMSIZE 4} |
| 50 | {$ALIGN ON} |
50 | {$ALIGN ON} |
| 51 | 51 | ||
| 52 | uses |
52 | uses |
| 53 | Windows, MMSystem; |
53 | Windows, MMSystem; |
| - | 54 | ||
| - | 55 | type |
|
| - | 56 | {$IFDEF UNICODE} |
|
| - | 57 | PCharAW = PWideChar; |
|
| - | 58 | {$ELSE} |
|
| - | 59 | PCharAW = PAnsiChar; |
|
| - | 60 | {$ENDIF} |
|
| - | 61 | ||
| 54 | //DirectDraw file |
62 | //DirectDraw file |
| 55 | (*==========================================================================; |
63 | (*==========================================================================; |
| 56 | * |
64 | * |
| 57 | * Copyright (C) 1994-1997 Microsoft Corporation. All Rights Reserved. |
65 | * Copyright (C) 1994-1997 Microsoft Corporation. All Rights Reserved. |
| 58 | * |
66 | * |
| Line 14454... | Line 14462... | ||
| 14454 | * Poll type in which the do_other field of the JOYOEMPOLLDATA |
14462 | * Poll type in which the do_other field of the JOYOEMPOLLDATA |
| 14455 | * structure contains mini-driver specific data passed from an app. |
14463 | * structure contains mini-driver specific data passed from an app. |
| 14456 | *) |
14464 | *) |
| 14457 | JOY_OEMPOLL_PASSDRIVERDATA = 7; |
14465 | JOY_OEMPOLL_PASSDRIVERDATA = 7; |
| 14458 | 14466 | ||
| - | 14467 | {$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
|
| 14459 | //DirectPlay file |
14468 | //DirectPlay file |
| 14460 | 14469 | ||
| 14461 | (*==========================================================================; |
14470 | (*==========================================================================; |
| 14462 | * |
14471 | * |
| 14463 | * Copyright (C) Microsoft Corporation. All Rights Reserved. |
14472 | * Copyright (C) Microsoft Corporation. All Rights Reserved. |
| Line 14526... | Line 14535... | ||
| 14526 | * Various structures used to invoke DirectPlay. |
14535 | * Various structures used to invoke DirectPlay. |
| 14527 | * |
14536 | * |
| 14528 | ****************************************************************************) |
14537 | ****************************************************************************) |
| 14529 | 14538 | ||
| 14530 | type |
14539 | type |
| 14531 | {$IFDEF UNICODE} |
- | |
| 14532 | PCharAW = PWideChar; |
- | |
| 14533 | {$ELSE} |
- | |
| 14534 | PCharAW = PAnsiChar; |
- | |
| 14535 | {$ENDIF} |
- | |
| 14536 | (* |
14540 | (* |
| 14537 | * TDPID |
14541 | * TDPID |
| 14538 | * DirectPlay player and group ID |
14542 | * DirectPlay player and group ID |
| 14539 | *) |
14543 | *) |
| 14540 | TDPID = DWORD; |
14544 | TDPID = DWORD; |
| Line 16843... | Line 16847... | ||
| 16843 | * Included for compatibility only. |
16847 | * Included for compatibility only. |
| 16844 | * |
16848 | * |
| 16845 | ****************************************************************************) |
16849 | ****************************************************************************) |
| 16846 | 16850 | ||
| 16847 | DPLAD_SYSTEM = DPLMSG_SYSTEM; |
16851 | DPLAD_SYSTEM = DPLMSG_SYSTEM; |
| 16848 | - | ||
| - | 16852 | {$ENDIF} // UseDirectPlay |
|
| 16849 | 16853 | ||
| 16850 | //DirectSetup file |
16854 | //DirectSetup file |
| 16851 | (*========================================================================== |
16855 | (*========================================================================== |
| 16852 | * |
16856 | * |
| 16853 | * Copyright (C) 1995-1997 Microsoft Corporation. All Rights Reserved. |
16857 | * Copyright (C) 1995-1997 Microsoft Corporation. All Rights Reserved. |
| Line 22632... | Line 22636... | ||
| 22632 | if x < $8C then Inc(OfVal) else Inc(OfVal,4); |
22636 | if x < $8C then Inc(OfVal) else Inc(OfVal,4); |
| 22633 | end; |
22637 | end; |
| 22634 | end; |
22638 | end; |
| 22635 | 22639 | ||
| 22636 | //DirectPlay file |
22640 | //DirectPlay file |
| - | 22641 | {$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
|
| 22637 | 22642 | ||
| 22638 | (*==========================================================================; |
22643 | (*==========================================================================; |
| 22639 | * |
22644 | * |
| 22640 | * Copyright (C) 1994-1997 Microsoft Corporation. All Rights Reserved. |
22645 | * Copyright (C) 1994-1997 Microsoft Corporation. All Rights Reserved. |
| 22641 | * |
22646 | * |
| Line 22700... | Line 22705... | ||
| 22700 | DPERR_UNSUPPORTED: Result := 'The function is not available in this implementation. Returned from IDirectPlay3::GetGroupConnectionSettings and IDirectPlay3::SetGroupConnectionSettings if they are called from a session that is not a lobby session.'; |
22705 | DPERR_UNSUPPORTED: Result := 'The function is not available in this implementation. Returned from IDirectPlay3::GetGroupConnectionSettings and IDirectPlay3::SetGroupConnectionSettings if they are called from a session that is not a lobby session.'; |
| 22701 | DPERR_USERCANCEL: Result := 'Can be returned in two ways. 1) The user canceled the connection process during a call to the IDirectPlay3::Open method. 2) The user clicked Cancel in one of the DirectPlay service provider dialog boxes during a call to IDirectPlay3::EnumSessions.'; |
22706 | DPERR_USERCANCEL: Result := 'Can be returned in two ways. 1) The user canceled the connection process during a call to the IDirectPlay3::Open method. 2) The user clicked Cancel in one of the DirectPlay service provider dialog boxes during a call to IDirectPlay3::EnumSessions.'; |
| 22702 | else Result := 'Unrecognized Error'; |
22707 | else Result := 'Unrecognized Error'; |
| 22703 | end; |
22708 | end; |
| 22704 | end; |
22709 | end; |
| - | 22710 | {$ENDIF} // UseDirectPlay |
|
| 22705 | 22711 | ||
| 22706 | //DirectSetup file |
22712 | //DirectSetup file |
| 22707 | 22713 | ||
| 22708 | (*========================================================================== |
22714 | (*========================================================================== |
| 22709 | * |
22715 | * |
| Line 22984... | Line 22990... | ||
| 22984 | DirectInputCreate := DirectInputCreateA; |
22990 | DirectInputCreate := DirectInputCreateA; |
| 22985 | {$ENDIF} |
22991 | {$ENDIF} |
| 22986 | end; |
22992 | end; |
| 22987 | {DirectInput} |
22993 | {DirectInput} |
| 22988 | {DirectPlay} |
22994 | {DirectPlay} |
| - | 22995 | {$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
|
| 22989 | if not IsNTandDelphiRunning then |
22996 | if not IsNTandDelphiRunning then |
| 22990 | begin |
22997 | begin |
| 22991 | DPlayDLL := LoadLibrary('DPlayX.dll'); |
22998 | DPlayDLL := LoadLibrary('DPlayX.dll'); |
| 22992 | 22999 | ||
| 22993 | DirectPlayEnumerateA := GetProcAddress(DPlayDLL,'DirectPlayEnumerateA'); |
23000 | DirectPlayEnumerateA := GetProcAddress(DPlayDLL,'DirectPlayEnumerateA'); |
| Line 23009... | Line 23016... | ||
| 23009 | {$ELSE} |
23016 | {$ELSE} |
| 23010 | DirectPlayLobbyCreate := DirectPlayLobbyCreateA; |
23017 | DirectPlayLobbyCreate := DirectPlayLobbyCreateA; |
| 23011 | {$ENDIF} |
23018 | {$ENDIF} |
| 23012 | 23019 | ||
| 23013 | end; |
23020 | end; |
| - | 23021 | {$ENDIF} // UseDirectPlay |
|
| 23014 | {DirectPlay} |
23022 | {DirectPlay} |
| 23015 | {DirectSetup} |
23023 | {DirectSetup} |
| 23016 | if not IsNTandDelphiRunning then |
23024 | if not IsNTandDelphiRunning then |
| 23017 | begin |
23025 | begin |
| 23018 | LoadDSetup; |
23026 | LoadDSetup; |
| Line 23063... | Line 23071... | ||
| 23063 | {Direct3DRM} |
23071 | {Direct3DRM} |
| 23064 | {DirectInput} |
23072 | {DirectInput} |
| 23065 | FreeLibrary(DInputDLL); |
23073 | FreeLibrary(DInputDLL); |
| 23066 | {DirectInput} |
23074 | {DirectInput} |
| 23067 | {DirectPlay} |
23075 | {DirectPlay} |
| - | 23076 | {$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
|
| 23068 | if DPlayDLL <> 0 then FreeLibrary(DPlayDLL); |
23077 | if DPlayDLL <> 0 then FreeLibrary(DPlayDLL); |
| - | 23078 | {$ENDIF} // UseDirectPlay |
|
| 23069 | {DirectPlay} |
23079 | {DirectPlay} |
| 23070 | {DirectSetup} |
23080 | {DirectSetup} |
| 23071 | FreeLibrary(DSetupDLL); |
23081 | FreeLibrary(DSetupDLL); |
| 23072 | {DirectSetup} |
23082 | {DirectSetup} |
| 23073 | {DirectSound} |
23083 | {DirectSound} |