Форум: "WinAPI";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
ВнизКак запретить повторный запуск приложения ? Найти похожие ветки
← →
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.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c