| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как запретить повторный запуск приложения ? [D6, D7, Win2k]

tararasyk ©   (2004-06-03 11:52:00) 

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

---

grom   (2004-06-03 16:42:00) [1]

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.

---

Johnmen   (2004-06-03 12:17:00) [2]

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

---

Тимохов   (2004-06-03 11:58:00) [3]

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

---

Vlad Oshin   (2004-06-03 11:57:00) [4]

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

---

Наверх