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

← →
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("Ïðîãðàììà ÓÆÅ çàïóùåíà !!! "," rrtts", MB_ICONEXCLAMATION);
Exit;
end;
// Application.Initialize;
Application.Title := "rrtts";
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

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