joffa.dpr

类似超级玛丽模型之二(DELPHIX)

Program joffa;

Uses
  Forms,
  registry,
  directx,
  dxdraws,
  sysutils,
  dialogs,
  controls,
  Unit1 In 'Unit1.pas' {MainForm},
  jUnit2 In 'jUnit2.pas' {MenuForm},
  joffaclass In 'joffaclass.pas',
  Unit2 In 'Unit2.pas' {DebugForm},
  Unit3 In 'Unit3.pas' {HelpForm};

{$R *.RES}

Begin
  Application.Initialize;
  Application.Title := 'Joffa';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TMenuForm, MenuForm);
  Application.CreateForm(TDebugForm, DebugForm);
  Application.CreateForm(THelpForm, HelpForm);
  With treginifile.create('Joffa') Do
  Begin
    If readbool('Settings', 'Fullscreen', True) Then //SwitchMode;
    Begin
      MainForm.DXDraw1.Cursor := crNone;
      MainForm.DXDraw1.Display.BitCount := 16;
      MainForm.SwitchMode;
    End Else mainform.dxdraw1.display.bitcount := deviceBitsPerPixel;
    mainform.dxdraw1.Initialize;
    Free;
  End;



// MainForm.Show;

  Chdir(extractfilepath(application.exename));
  MainForm.InitApp;
// showmessage('faen!');
  Application.Run;
End.