Subversion Repositories spacemission

Rev

Rev 21 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 57
Line 1... Line 1...
1 
unit DirectPlay;
 1 
unit DirectPlay;
2 
 
 2 
 
- 
 
 3 
{$INCLUDE DelphiXcfg.inc}
- 
 
 4 
 
- 
 
 5 
{$IFNDEF UseDirectPlay}
- 
 
 6 
// If you want to use DirectPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc
- 
 
 7 
interface
- 
 
 8 
implementation
- 
 
 9 
{$ELSE} // !UseDirectPlay
- 
 
 10 
 
3 
(*==========================================================================;
 11 
(*==========================================================================;
4 
 *
 12 
 *
5 
 *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
 13 
 *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
6 
 *
 14 
 *
7 
 *  File:       dplay.h dplobby.h
 15 
 *  File:       dplay.h dplobby.h
Line 16... Line 24...
16 
 *
 24 
 *
17 
 ***************************************************************************)
 25 
 ***************************************************************************)
18 
 
 26 
 
19 
interface
 27 
interface
20 
 
 28 
 
21 
{$INCLUDE DelphiXcfg.inc}
 - 
 
22 
 
 - 
 
23 
{$IFNDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay"
 - 
 
24 
{$MESSAGE ERROR 'If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc'}
 - 
 
25 
{$ENDIF}
 - 
 
26 
 
 - 
 
27 
{$MINENUMSIZE 4}
 29 
{$MINENUMSIZE 4}
28 
{$ALIGN ON}
 30 
{$ALIGN ON}
29 
 
 31 
 
30 
uses
 32 
uses
31 
  Windows;
 33 
  Windows;
Line 2512... Line 2514...
2512 
finalization
 2514 
finalization
2513 
  begin
 2515 
  begin
2514 
    if DPlayDLL <> 0 then FreeLibrary(DPlayDLL);
 2516 
    if DPlayDLL <> 0 then FreeLibrary(DPlayDLL);
2515 
  end;
 2517 
  end;
2516 
 
 2518 
 
- 
 
 2519 
{$ENDIF} // UseDirectPlay
- 
 
 2520 
 
2517 
end.
 2521 
end.