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

← →
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]
а если два раз очень быстро щелкнуть по иконке запуска, то как?

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

А если

hwnd: THandle;

begin

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

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