Subversion Repositories spacemission

Rev

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

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