1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Fortschritt_Unit in 'Fortschritt_Unit.pas' {Form2},
  Einstellungen_Unit in 'Einstellungen_Unit.pas' {Form3};

{$R *.res}

var mHandle: THandle;

begin
  mHandle:=CreateMutex(nil, True, PChar('MP3-Tag-Editor'));
  if GetLastError=ERROR_ALREADY_EXISTS then
   begin
    Application.MessageBox('Die Anwendung läuft bereits und kann nicht noch einmal gestartet werden.', 'MP3-Tag-Editor', 16);
    Halt
   end
  else
   begin
    Application.Initialize;
    Application.Title:='MP3-Tag-Editor';
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.Run
   end;
  if mHandle<>0 then
   begin
    CloseHandle(mHandle);
   end;
end.					

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

var mHandle: THandle;

begin
  mHandle:=CreateMutex(nil, True, PChar('MP3-Tag-Editor'));
  if GetLastError=ERROR_ALREADY_EXISTS then
  begin
    SetForeGroundWindow(mHandle);
    { Application.MessageBox('Die Anwendung läuft bereits und kann nicht noch einmal gestartet werden.', 'MP3-Tag-Editor', 16); }
    Halt;
  end