Subversion Repositories spacemission

Rev

Rev 81 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 81 Rev 94
Line 22... Line 22...
22 
var
 22 
var
23 
  Sem: THandle;
 23 
  Sem: THandle;
24 
 
 24 
 
25 
resourcestring
 25 
resourcestring
26 
  SAlreadyStarted = 'Der Editor wurde bereits gestartet.';
 26 
  SAlreadyStarted = 'Der Editor wurde bereits gestartet.';
27 
  STitel = 'SpaceMission Leveleditor';
 27 
  STitel = 'SpaceMission Level-Editor';
28 
  SFileMissing = '%s fehlt. Bitte installieren Sie SpaceMission erneut.';
 28 
  SFileMissing = '%s fehlt. Bitte installieren Sie SpaceMission erneut.';
29 
 
 29 
 
30 
const
 30 
const
31 
  SemaphoreName = 'SpaceMission Leveleditor';
 31 
  SemaphoreName = 'SpaceMission Level Editor';
32 
 
 32 
 
33 
begin
 33 
begin
- 
 
 34 
  SpaceMission_SwitchLanguage;
34 
  { Programm schon gestartet? }
 35 
  { Programm schon gestartet? }
35 
  Sem := CreateSemaphore(nil, 0, 1, SemaphoreName);
 36 
  Sem := CreateSemaphore(nil, 0, 1, SemaphoreName);
36 
  if (Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
 37 
  if (Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
37 
  begin
 38 
  begin
38 
    CloseHandle(Sem);
 39 
    CloseHandle(Sem);