Subversion Repositories spacemission

Rev

Rev 10 | Rev 21 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10 Rev 16
Line 2... Line 2...
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
5 
{$INCLUDE DelphiXcfg.inc}
 5 
{$INCLUDE DelphiXcfg.inc}
6 
 
 6 
 
7 
{$IFNDEF UseDirectPlay} // Daniel Marschall 12.04.2024 Added to avoid Windows showing "This app requires DirectPlay"
 - 
 
8 
{$MESSAGE ERROR 'If you want to use DXPlay.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc'}
 - 
 
9 
{$ENDIF}
 - 
 
10 
 
 - 
 
11 
uses
 7 
uses
12 
  Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable,  
 8 
  Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable,  
13 
{$IfDef StandardDX}
 9 
{$IfDef StandardDX}
14 
  DirectDraw,
 10 
  DirectDraw,
15 
// Delphi 2010 cannot be use DirectPlay8 because structure was not rewriten
 11 
// Delphi 2010 cannot be use DirectPlay8 because structure was not rewriten
Line 944... Line 940...
944 
    FCalledDoOpen := True; DoOpen;
 940 
    FCalledDoOpen := True; DoOpen;
945 
    DoAddPlayer(FLocalPlayer);
 941 
    DoAddPlayer(FLocalPlayer);
946 
 
 942 
 
947 
    {  Thread start  }
 943 
    {  Thread start  }
948 
    FRecvThread := TDXPlayRecvThread.Create(Self);
 944 
    FRecvThread := TDXPlayRecvThread.Create(Self);
949 
    FRecvThread.Resume;
 945 
    FRecvThread.{$IFDEF VER14UP}Start{$ELSE}Resume{$ENDIF};
950 
  except
 946 
  except
951 
    Close;
 947 
    Close;
952 
    raise;
 948 
    raise;
953 
  end;
 949 
  end;
954 
end;
 950 
end;