spacemissionalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /VCL_DELPHIX_D6/ @ 20

  → /VCL_DELPHIX_D6/ @ 21

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 20 → Rev 21

/VCL_DELPHIX_D6/DXPlay.pas
4,6 → 4,10
{$INCLUDE DelphiXcfg.inc}
{$IFNDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay"
{$MESSAGE ERROR 'If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc'}
{$ENDIF}
uses
Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable,
{$IfDef StandardDX}

/VCL_DELPHIX_D6/DelphiXcfg.inc
909,4 → 909,9
{special feature for enumerate displayis like primary, secondary etc.}
{only for special purpose, multimonitors etc.}
{.$DEFINE _DMO_}
{.$DEFINE _DMO_}
{When you need DirectPlay, please remove the dot. It is not enabled by default, because}
{DirectPlay is not shipped with Windows by default, and the user might receive a warning}
{that the app might not work if DirectPlay is not installed.}
{.$Define UseDirectPlay}

/VCL_DELPHIX_D6/DirectPlay.pas
18,6 → 18,12
interface
{$INCLUDE DelphiXcfg.inc}
{$IFNDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay"
{$MESSAGE ERROR 'If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc'}
{$ENDIF}
{$MINENUMSIZE 4}
{$ALIGN ON}

/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);