program LevEdit;

uses
  Windows,
  {$IF CompilerVersion >= 23.0}
  System.UITypes,
  {$IFEND }
  Forms,
  Dialogs,
  SysUtils,
  MMSystem,
  LevMain in 'LevMain.pas' {MainForm},
  LevSplash in 'LevSplash.pas' {SplashForm},
  LevSpeicherung in 'LevSpeicherung.pas' {SpeicherungForm},
  ComInfo in 'ComInfo.pas' {InfoForm},
  LevOptions in 'LevOptions.pas' {LevelForm},
  ComLevelReader in 'ComLevelReader.pas',
  Global in 'Global.pas';

{$R *.RES}

var
  Sem: THandle;

begin
  { Programm schon gestartet? }
  Sem := CreateSemaphore(nil, 0, 1, 'SpaceMission Leveleditor');
  if (Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    CloseHandle(Sem);
    MessageDlg('Der Editor wurde bereits gestartet.', mtInformation, [mbOK], 0);
    exit;
  end;
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.Initialize;
  Application.ShowMainform := False;
  Application.MainFormOnTaskBar := true;
  Application.Title := 'SpaceMission Leveleditor';
  if not fileexists(OwnDirectory+'DirectX\Graphics.dxg') then
  begin
    MessageDLG('DirectX\Graphics.dxg fehlt. Bitte installieren Sie SpaceMission erneut.', mtError, [mbOK], 0);
    exit;
  end;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSpeicherungForm, SpeicherungForm);
  Application.CreateForm(TInfoForm, InfoForm);
  Application.CreateForm(TLevelForm, LevelForm);
  Application.Run;
end.