Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];

Вниз

Проверка уникальности приложения   Найти похожие ветки 

← →
M@jor   (2004-06-22 22:24) [0]

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

---

← →
TUser ©   (2004-06-22 23:06) [1]

Самый простой способ - отыскивать через FindWindow первую копию.

---

← →
Palladin ©   (2004-06-22 23:10) [2]

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

---

← →
MIGUR   (2004-06-23 04:44) [3]

Рой здесь:
...\DELPHI7\DEMOS\IPCDEMOS\ipcthrd.pas, функция IsMonitorRunning()

---

← →
grom   (2004-06-23 06:27) [4]

program Open;

uses Forms,Windows,Main in "Main.pas" {Form1};

{$R *.RES}

var HM:THandle;
function C: boolean;
begin
 HM:=OpenMutex(MUTEX_ALL_ACCESS,false,"23.06.20004");
 Result:=(HM<>0);
 if HM=0 then HM:=CreateMutex(nil,false,"23.06.20004);
end;

begin if C then begin
 Application.MessageBox(" Проверка уникальности приложения  !!!  "," "Open"",MB_ICONEXCLAMATION);
 Exit;
end;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

---

← →
Думкин ©   (2004-06-23 06:55) [5]

var
 SemaphoreID : THandle;

begin
    SemaphoreID := CreateSemaphore(nil, 0, 1, PChar("8199952C-622D-4287-B19F-D5D3277C983D"));  
    if GetLastError = ERROR_ALREADY_EXISTS then Halt(0);
    ...
    CloseHandle(SemaphoreID);
    ....
end.

---

← →
Думкин ©   (2004-06-23 07:07) [6]

Правда с выходом надо аккуратнее, что-то поспешил.

---

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

Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.036 c