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

Когда у Господа Бога в течение получаса 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.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 164 • TDictionary Custom Sort 3 338 • Fast Watermark Sources 3 093 • 3D Designer 4 849 • Sik Screen Capture 3 345 • Patch Maker 3 554 • Айболит (remote control) 3 660 • ListBox Drag & Drop 3 015 • Доска для игры Реверси 81 708 • Графические эффекты 3 946 • Рисование по маске 3 249 • Перетаскивание изображений 2 630 • Canvas Drawing 2 753 • Рисование Луны 2 582 • Поворот изображения 2 190 • Рисование стержней 2 168 • Paint on Shape 1 568 • Генератор кроссвордов 2 236 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 231 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 216 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358