1:
2:
3:
4:
5:
6:
7:

 Musterlaenge{TEdit}: 5
   Mo    Di    Mi    Do    Fr    Sa    So
1  x                 x
2              x                 x
3
4                          x
5					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var Mutex: Cardinal;

begin
Mutex := CreateMutex(nil, true, 'TarrysWecker');
if GetLastError = ERROR_ALREADY_EXISTS then Halt;

Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

if Mutex <> 0 then CloseHandle(Mutex);
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

unit NotTwoApps;

interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle

Initialization
  mHandle := CreateMutex(nil,True,ProgramName); 
  // ProgramName Der Anwendungsname ist hier einzutragen
  if GetLastError = ERROR_ALREADY_EXISTS then begin   
    // Anwendung läuft bereits
    ShowMessage('Anwendung läuft bereits!');
    // Wenn du keine Meldung willst, mach die Klammern hin
    Halt;
  end;

finalization   // ... und Schluss
  if mHandle <> 0 then
    CloseHandle(mHandle)
end.