Запретить запуск второго экземпляра программы

Когда у Господа Бога в течение получаса 15-ый раз завис компьютер, он решил выдать Б. Гейтсу последнее предупреждение. Результат вы знаете: пострадал Сиэтл.

В Windows 95, по-моему, это самый простой работающий вариант. Этот текст должен находиться в модуле проекта (добраться до него можно через меню View/Project Source).

program Project1;

uses
  Forms,
  Windows, // не забудьте эту строчку
  Unit1 in 'Unit1.pas' {Form1};

  {$R *.RES}

var
  HM: THandle;
function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');
  Result := (HM <> 0);
  if HM = 0 then
    HM := CreateMutex(nil, false, 'MyOwnMutex');
end;

begin
  if Check then
    Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Недавно добавленные исходники
• Animation Loaders 995 • DeLiKaTeS Tetris (Тетрис) 5 925 • TDictionary Custom Sort 7 874 • Fast Watermark Sources 7 540 • 3D Designer 10 776 • Sik Screen Capture 8 104 • Patch Maker 8 298 • Айболит (remote control) 8 350 • ListBox Drag & Drop 7 203 • Доска для игры Реверси 101 257 • Графические эффекты 8 416 • Рисование по маске 7 792 • Перетаскивание изображений 6 383 • Canvas Drawing 6 761 • Рисование Луны 6 688 • Поворот изображения 5 811 • Рисование стержней 4 757 • Paint on Shape 3 454 • Генератор кроссвордов 4 457 • Головоломка Paletto 3 594 • Теорема Монжа об окружностях 4 384 • Пазл Numbrix 2 841 • Заборы и коммивояжеры 3 795 • Игра HIP 2 560 • Игра Go (Го) 2 569 • Симулятор лифта 2 956 • Программа укладки плитки 2 384 • Генератор лабиринта 3 139 • Проверка числового ввода 2 619 • HEX View 3 023