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

Вниз

Вторая копия программы   Найти похожие ветки 

← →
O?O   (2004-08-31 10:33) [0]

Как просто сделать чтобы на одном компьютере нельзя было запустить больше одной копии программы одновременно?

---

← →
Zhekson   (2004-08-31 10:36) [1]

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.

---

← →
VMcL ©   (2004-08-31 10:37) [2]

FAQ: http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15

---

← →
O?O   (2004-08-31 11:13) [3]

> VMcL ©   (31.08.04 10:37) [2]
Спасибо за ссылку, воспользовался третьим из описанны способов, отлично сработало.

---

← →
grom   (2004-08-31 13:36) [4]

Лучше  всего  использовать мутексы.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.066 c