как блокировать повторный запуск?

← →
BillyJeans (2002-09-16 10:44) [0]

Подскажите, каким образом при запуске сделать проверку, запущена программа уже или нет? А если запущена то Exit!

← →
Separator (2002-09-16 10:49) [1]

program CopyProg;

uses
Forms,
Dialogs,
Windows,
SysUtils,
UnitBasic in "UnitBasic.pas" {FormBasic};

{$R *.res}

var
Atom: word;
Title: PChar;
myHandle: THandle;

begin
// Определени названия програмы
myHandle:= Application.Handle;
Title:= StrAlloc(255);
GetWindowText(myHandle, Title, 255);

// Определение запуска второй копии
if GlobalFindAtom(Title) <> 0 then
begin
ShowMessage("Попытка запуска второй версии программы!");
Halt
end;

// Запуск программы
Atom:= GlobalAddAtom(Title);
Application.Initialize;
Application.Title:= "My Program";
Application.CreateForm(TFormBasic, FormBasic);
Application.Run;
GlobalDeleteAtom(Atom)
end.

← →
vikki (2002-09-16 10:50) [2]

мьютекс используй

← →
BillyJeans (2002-09-16 10:58) [3]

какой такой мьютекс?

← →
Separator (2002-09-16 11:57) [4]

Про мьютексы читай в умныз книгах.
А вот пример его использования:
var HMutex: THandle; begin HMutex:= CreateMutex(nil, False, "MySuperProga"); if WaitForSingleObject(HMutex, 0)<>wait_TimeOut then begin Application.Initialize; Application.CreateForm)TForm1, Form1); Application.Run end end.
А вообще слей какой-нибудь нормальный фак и там по этому вопросу куча примеров

как блокировать повторный запуск? Найти похожие ветки