Как не допустить запуск второй копии программы 4

Автор: Васильев Сергей

Если программист идет в 3 часа дня на работу, то он в отпуске.

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
  hwnd: THandle;

begin
  hwnd := FindWindow('TForm1', 'Form1');
  if hwnd = 0 then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    SetForegroundWindow(hwnd)
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 215 • TDictionary Custom Sort 6 265 • Fast Watermark Sources 6 062 • 3D Designer 8 969 • Sik Screen Capture 6 384 • Patch Maker 6 809 • Айболит (remote control) 6 790 • ListBox Drag & Drop 5 666 • Доска для игры Реверси 96 333 • Графические эффекты 7 008 • Рисование по маске 6 294 • Перетаскивание изображений 5 180 • Canvas Drawing 5 548 • Рисование Луны 5 252 • Поворот изображения 4 799 • Рисование стержней 3 396 • Paint on Shape 2 653 • Генератор кроссвордов 3 537 • Головоломка Paletto 2 825 • Теорема Монжа об окружностях 3 638 • Пазл Numbrix 2 380 • Заборы и коммивояжеры 3 062 • Игра HIP 2 018 • Игра Go (Го) 1 942 • Симулятор лифта 2 303 • Программа укладки плитки 2 007 • Генератор лабиринта 2 461 • Проверка числового ввода 2 144 • HEX View 2 479 • Физический маятник 2 094