9,19 → 9,17 |
SysUtils, |
MMSystem, |
GamMain in 'GamMain.pas' {MainForm}, |
ComText in 'ComText.pas' {TextForm}, |
GamSplash in 'GamSplash.pas' {SplashForm}, |
GamSpeicherung in 'GamSpeicherung.pas' {SpeicherungForm}, |
ComInfo in 'ComInfo.pas' {InfoForm}, |
GamCheat in 'GamCheat.pas' {CheatForm}, |
Global in 'Global.pas'; |
Global in 'Global.pas', |
System.UITypes; |
|
{$R *.RES} |
|
var |
Fehler: boolean; |
Sem: THandle; |
directory: string; |
|
begin |
{ Programm schon gestartet? } |
38,33 → 36,14 |
Application.Initialize; |
Application.showmainform := False; |
Application.Title := 'SpaceMission'; |
{ Dateien vorhanden? } |
Fehler := false; |
directory := extractfilepath(paramstr(0)); |
if not fileexists(directory+'Bilder\Delphi.bmp') then Fehler := true; |
if not fileexists(directory+'Bilder\SplSplash.jpg') then Fehler := true; |
if not fileexists(directory+'DirectX\Graphic.dxg') then Fehler := true; |
if not fileexists(directory+'DirectX\Sound.dxw') then Fehler := true; |
if not fileexists(directory+'Musik\Boss.mid') then Fehler := true; |
if not fileexists(directory+'Musik\Game.mid') then Fehler := true; |
if not fileexists(directory+'Musik\Scene.mid') then Fehler := true; |
if not fileexists(directory+'Musik\Title.mid') then Fehler := true; |
//if not fileexists(directory+'Texte\Mitwirkende.txt') then Fehler := true; |
if Fehler then |
if WaveOutGetNumDevs < 1 then |
begin |
MessageDLG('Dateien, die die Programmstabilität gewährleisten, sind ' + |
'nicht mehr vorhanden!'+#13#10+'Bitte installieren Sie SpaceMission erneut...', |
mtWarning, [mbOK], 0); |
exit; |
end; |
{ Keine Soundkarte?! } |
if WaveOutGetNumDevs < 1 then |
MessageDlg('Es wurde keine Soundkarte gefunden!' + #13#10 + |
'Entweder ist keine Soundkarte angeschlossen oder sie ist nicht ' + |
'ordnungsgemäß installiert.' + #13#10 + 'Es können daher keine Musik und ' + |
'keine Geräusche abgespielt werden.', mtError, [mbOK], 0); |
end; |
Application.CreateForm(TMainForm, MainForm); |
Application.CreateForm(TTextForm, TextForm); |
Application.CreateForm(TSpeicherungForm, SpeicherungForm); |
Application.CreateForm(TInfoForm, InfoForm); |
Application.CreateForm(TCheatForm, CheatForm); |