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

Вниз

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

← →
granni ©   (2005-08-08 12:18) [0]

Добрый день! Подскажите, как сделать так, чтобы количество одновременно запущенных приложений было не больше одного.

---

← →
Anatoly Podgoretsky ©   (2005-08-08 12:25) [1]

Используй мьютексы, информации по использованию в Сети мегатонны, под любые языки программирования.

---

← →
granni ©   (2005-08-08 12:29) [2]

Спасибо

---

← →
Amoeba ©   (2005-08-08 13:25) [3]

Читаем эту статью:
http://www.delphimaster.ru/articles/limit.html

---

← →
Gydvin ©   (2005-08-08 13:28) [4]

а если так

program Project1;

uses

Forms,
Windows,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

var

hwnd: THandle;

begin

hwnd := FindWindow("TForm1", "Form1");
if hwnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
SetForegroundWindow(hwnd)
end.

---

← →
Anatoly Podgoretsky ©   (2005-08-08 13:30) [5]

Gydvin ©   (08.08.05 13:28) [4]
а если два раз очень быстро щелкнуть по иконке запуска, то как?

---

← →
Gydvin ©   (2005-08-08 13:38) [6]

А вот об этом я недумал, да и код не мой рядом пробегал

---

← →
Gydvin ©   (2005-08-08 13:42) [7]

А если

hwnd: THandle;

begin

..... // в этом месте задержку какую либо поставить?
hwnd := FindWindow("TForm1", "Form1");
if hwnd = 0 then

---

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

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

Наверх

Память: 0.48 MB
Время: 0.045 c