51,6 → 51,14 |
|
uses |
Windows, MMSystem; |
|
type |
{$IFDEF UNICODE} |
PCharAW = PWideChar; |
{$ELSE} |
PCharAW = PAnsiChar; |
{$ENDIF} |
|
//DirectDraw file |
(*==========================================================================; |
* |
14456,6 → 14464,7 |
*) |
JOY_OEMPOLL_PASSDRIVERDATA = 7; |
|
{$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
//DirectPlay file |
|
(*==========================================================================; |
14528,11 → 14537,6 |
****************************************************************************) |
|
type |
{$IFDEF UNICODE} |
PCharAW = PWideChar; |
{$ELSE} |
PCharAW = PAnsiChar; |
{$ENDIF} |
(* |
* TDPID |
* DirectPlay player and group ID |
16845,8 → 16849,8 |
****************************************************************************) |
|
DPLAD_SYSTEM = DPLMSG_SYSTEM; |
{$ENDIF} // UseDirectPlay |
|
|
//DirectSetup file |
(*========================================================================== |
* |
22634,6 → 22638,7 |
end; |
|
//DirectPlay file |
{$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
|
(*==========================================================================; |
* |
22702,6 → 22707,7 |
else Result := 'Unrecognized Error'; |
end; |
end; |
{$ENDIF} // UseDirectPlay |
|
//DirectSetup file |
|
22986,6 → 22992,7 |
end; |
{DirectInput} |
{DirectPlay} |
{$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
if not IsNTandDelphiRunning then |
begin |
DPlayDLL := LoadLibrary('DPlayX.dll'); |
23011,6 → 23018,7 |
{$ENDIF} |
|
end; |
{$ENDIF} // UseDirectPlay |
{DirectPlay} |
{DirectSetup} |
if not IsNTandDelphiRunning then |
23065,7 → 23073,9 |
FreeLibrary(DInputDLL); |
{DirectInput} |
{DirectPlay} |
{$IFDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
if DPlayDLL <> 0 then FreeLibrary(DPlayDLL); |
{$ENDIF} // UseDirectPlay |
{DirectPlay} |
{DirectSetup} |
FreeLibrary(DSetupDLL); |