| 1,9 → 1,5 |
|---|
| program LevEdit; |
| |
| {$Description 'SpaceMission Leveleditor 1.1'} |
| |
| |
| |
| uses |
| Windows, |
| {$IF CompilerVersion >= 23.0}System.UITypes,{$IFEND} |
| 23,9 → 19,7 |
|---|
| {$R *.RES} |
| |
| var |
| Fehler: boolean; |
| Sem: THandle; |
| directory: string; |
| |
| begin |
| { Programm schon gestartet? } |
| 41,18 → 35,10 |
|---|
| SplashForm.Update; |
| Application.Initialize; |
| Application.showmainform := False; |
| Application.Title := 'SpaceMission 1.1 - Leveleditor'; |
| Fehler := false; |
| directory := extractfilepath(paramstr(0)); |
| // if not fileexists(directory+'Bilder\Auswahl.bmp') then Fehler := true; |
| if not fileexists(directory+'DirectX\Graphic.dxg') then Fehler := true; |
| // if not fileexists(directory+'Texte\Mitwirkende.txt') then Fehler := true; |
| // if not fileexists(directory+'Dateien.doc') then Fehler := true; |
| if Fehler then |
| Application.Title := 'SpaceMission Leveleditor'; |
| if not fileexists(FDirectory+'DirectX\Graphic.dxg') then |
| begin |
| MessageDLG('Dateien, die die Programmstabilität gewährleisten, sind ' + |
| 'nicht mehr vorhanden!'+#13#10+'Bitte installieren Sie SpaceMission erneut...', |
| mtWarning, [mbOK], 0); |
| MessageDLG('Graphic.dxg fehlt. Bitte installieren Sie SpaceMission erneut.', mtError, [mbOK], 0); |
| exit; |
| end; |
| Application.CreateForm(TMainForm, MainForm); |