spacemissionalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /SpaceMission.dpr @ 79

  → /SpaceMission.dpr @ 80

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 79 → Rev 80

/SpaceMission.dpr
22,13 → 22,22
var
Sem: THandle;
resourcestring
SAlreadyStarted = 'Das Spiel wurde bereits gestartet.';
STitel = 'SpaceMission';
SFileMissing = '%s fehlt. Bitte installieren Sie SpaceMission erneut.';
const
SemaphoreName = 'SpaceMission';
begin
{ Programm schon gestartet? }
Sem := CreateSemaphore(nil, 0, 1, 'SpaceMission');
Sem := CreateSemaphore(nil, 0, 1, SemaphoreName);
if (Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
begin
CloseHandle(Sem);
MessageDlg('Das Spiel wurde bereits gestartet.', mtInformation, [mbOK], 0);
MessageDlg(SAlreadyStarted, mtInformation, [mbOK], 0);
exit;
end;
SplashForm := TSplashForm.Create(Application);
37,10 → 46,10
Application.Initialize;
Application.ShowMainform := False;
Application.MainFormOnTaskBar := true;
Application.Title := 'SpaceMission';
if not fileexists(OwnDirectory+'DirectX\Graphics.dxg') then
Application.Title := STitel;
if not fileexists(OwnDirectory+DxgFile) then
begin
MessageDLG('DirectX\Graphics.dxg fehlt. Bitte installieren Sie SpaceMission erneut.', mtError, [mbOK], 0);
MessageDLG(Format(SFileMissing, [DxgFile]), mtError, [mbOK], 0);
exit;
end;
Application.CreateForm(TMainForm, MainForm);