Вторая копия программы

← →
Soft © (2002-09-12 18:47) [0]

Привет народ.

Не подскажете как определить запусчена ли уже определенная программа. FindWindow плохой способ, не пойдет. Может через сокеты. Или нет в Винде каких-то семафоров?

← →
MBo © (2002-09-12 18:50) [1]

CreateMutex

program SelfCheck;

uses

Windows,
Forms,
Unit1 in "Unit1.pas" {Form1};

const

AtStr="MyProgram";

function CheckThis : boolean;
var

Atom: THandle;
begin

Atom:= GlobalFindAtom(AtStr);
Result:= Atom <> 0;
if not result
then GlobalAddAtom(AtStr);
end;

begin

if not CheckThis
then begin // Запуск программмы
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
GlobalDeleteAtom(GlobalFindAtom(AtStr)); // !!!
end
else begin
MessageBox(0,"Нельзя запустить две копии","Моя программа",0);
end;
end.

Элегантно и работает

Вторая копия программы Найти похожие ветки