Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 20 → Rev 21

/VCL_DELPHIX_D6/DirectX.pas
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);