23,13 → 23,21 |
var |
Sem: THandle; |
|
resourcestring |
SAlreadyStarted = 'Der Editor wurde bereits gestartet.'; |
STitel = 'SpaceMission Leveleditor'; |
SFileMissing = '%s fehlt. Bitte installieren Sie SpaceMission erneut.'; |
|
const |
SemaphoreName = 'SpaceMission Leveleditor'; |
|
begin |
{ Programm schon gestartet? } |
Sem := CreateSemaphore(nil, 0, 1, 'SpaceMission Leveleditor'); |
Sem := CreateSemaphore(nil, 0, 1, SemaphoreName); |
if (Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then |
begin |
CloseHandle(Sem); |
MessageDlg('Der Editor wurde bereits gestartet.', mtInformation, [mbOK], 0); |
MessageDlg(SAlreadyStarted, mtInformation, [mbOK], 0); |
exit; |
end; |
SplashForm := TSplashForm.Create(Application); |
38,10 → 46,10 |
Application.Initialize; |
Application.ShowMainform := False; |
Application.MainFormOnTaskBar := true; |
Application.Title := 'SpaceMission Leveleditor'; |
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); |