Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

granni © (2005-08-08 12:18:00)
Добрый день! Подскажите, как сделать так, чтобы количество одновременно запущенных приложений было не больше одного.

Gydvin (2005-08-08 13:42:00) [1]
А если

hwnd: THandle;

begin

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

Gydvin (2005-08-08 13:38:00) [2]
А вот об этом я недумал, да и код не мой рядом пробегал

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

Gydvin (2005-08-08 13:28:00) [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.

Amoeba (2005-08-08 13:25:00) [5]
Читаем эту статью:
http://www.delphimaster.ru/articles/limit.html

granni (2005-08-08 12:29:00) [6]
Спасибо

Anatoly Podgoretsky (2005-08-08 12:25:00) [7]
Используй мьютексы, информации по использованию в Сети мегатонны, под любые языки программирования.

Наверх

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