Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

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

← →
tararasyk   (2004-06-03 11:52) [0]

Как запретить повторный запуск приложения ?

---

← →
Vlad Oshin ©   (2004-06-03 11:57) [1]

своего или чужого?

---

← →
Тимохов ©   (2004-06-03 11:58) [2]

если своего, то зайдите в месный фак, в поиске набертие createmutex, "найти", наслаждайтесь.

---

← →
Johnmen ©   (2004-06-03 12:17) [3]

...а также см.
CreateSemaphore
CreateEvent

---

← →
grom   (2004-06-03 16:42) [4]

program rrtts;
uses Forms,Windows,Main in"Main.pas"{Form1};
{$R *.RES}
{$R XXD.RES}
{$R SOU.RES}
var HM: THandle;
function Check: boolean;
begin
 HM :=OpenMutex(MUTEX_ALL_ACCESS,false,"03062004");
 Result := (HM <> 0);
 if HM=0then HM:=CreateMutex(nil,false,"03062004");
end;

begin if Check then begin
 Application.MessageBox("&#207;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#224; &#211;&#198;&#197; &#231;&#224;&#239;&#243;&#249;&#229;&#237;&#224; !!!  "," rrtts", MB_ICONEXCLAMATION);
 Exit;
end;
// Application.Initialize;
 Application.Title := "rrtts";
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c