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 DXPlay; |
1 | unit DXPlay; |
| 2 | 2 | ||
| 3 | interface |
- | |
| 4 | - | ||
| 5 | {$INCLUDE DelphiXcfg.inc} |
3 | {$INCLUDE DelphiXcfg.inc} |
| 6 | 4 | ||
| 7 | {$IFNDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay" |
5 | {$IFNDEF UseDirectPlay} |
| 8 | {$MESSAGE ERROR 'If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc'} |
6 | // If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc |
| - | 7 | interface |
|
| - | 8 | implementation |
|
| - | 9 | {$ELSE} // !UseDirectPlay |
|
| - | 10 | ||
| 9 | {$ENDIF} |
11 | interface |
| 10 | 12 | ||
| 11 | uses |
13 | uses |
| 12 | Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable, |
14 | Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable, |
| 13 | {$IfDef StandardDX} |
15 | {$IfDef StandardDX} |
| 14 | DirectDraw, |
16 | DirectDraw, |
| Line 1230... | Line 1232... | ||
| 1230 | 1232 | ||
| 1231 | initialization |
1233 | initialization |
| 1232 | CoInitialize(nil); |
1234 | CoInitialize(nil); |
| 1233 | finalization |
1235 | finalization |
| 1234 | CoUninitialize; |
1236 | CoUninitialize; |
| - | 1237 | {$ENDIF} // UseDirectPlay |
|
| - | 1238 | ||
| 1235 | end. |
1239 | end. |
| 1236 | 1240 | ||