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

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

Запуск программы только один раз

korban ©   (2006-01-30 23:39:00) 

Подскажите как сделать так, что бы можна было открывать программу один раз. Если запустить обратно программу.exe то она не открывалась еще одним окном а просто активировалось окно данной проги?

---

Desdechado   (2006-01-31 16:05:00) [1]

> запустить обратно
это как?

---

Кефир87   (2006-01-31 14:57:00) [2]


program Project1;
...
var
 w : HWND;
begin
  w := FindWindow('TForm1', nil);
  if w<>0 then
  begin
    SetForegroundWindow(w);
    Halt;
  end;
 Application.Initialize;
...
end.


---

Johnmen   (2006-01-31 14:06:00) [3]

Помимо мютекса можно также использовать евент или семафор.

---

Gero   (2006-01-30 23:48:00) [4]

CreateMutex(nil, False, 'Имя твоей программы');
if GetLastError = ERROR_ALREADY_EXISTS then
 // копия программы уже запущена

---

Наверх