| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как узнать, не запущена ли программа? [D7]

Morrison ©   (2005-03-02 23:30:00) 

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

---

Вариант   (2005-03-03 16:02:00) [1]

>Simply Alex
Я тоже советую использовать Mutex базирование. Но эффективнее его использовать так:
Добавляем в проект unit:

unit Only_One;

interface

function Init_Mutex(mid: string): boolean;

implementation

uses Windows;

var
 mut: thandle;

function mut_id(s: string): string;
var
 f: integer;
begin
 result := s;
 for f := 1 to length(s) do
   if result[f] = '\' then
     result[f] := '_';
end;

function Init_Mutex(mid: string): boolean;
begin
 Mut := CreateMutex(nil, false, pchar(mut_id(mid)));
 Result := not ((Mut = 0) or (GetLastError = ERROR_ALREADY_EXISTS));
end;

initialization
 mut := 0;
finalization
 if mut <> 0 then
   CloseHandle(mut);
end.

А использвать так:

program VariantProgram;

uses
 only_one,
 Unit1 in 'Unit1.pas' {Form1},
 Unit2 in 'Unit2.pas' {dm: TDataModule},
 Unit3 in 'Unit3.pas' {Form3},

{$R *.RES}

const
 UniqueString = 'VariantMutex';
   {Может быть любое слово. Желательно латинскими буквами.}

 begin
   if not init_mutex(UniqueString) then
     exit; {Выходим до инициализации, если мьютекс уже есть}
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(Tdm, dm);
   Application.CreateForm(TForm3, Form3);
   Application.Run;
 end.

Эффективно на 100%. Я сам использую этот метод.

---

Digitman   (2005-03-03 14:36:00) [2]

> Думкин ©   (03.03.05 14:33) [9]


щас)

я что, издательство "Сделай сам" для самоделкиных ?)

---

Думкин   (2005-03-03 14:33:00) [3]

>  [8] Digitman ©   (03.03.05 14:28)

Дафай опять свой код с пайпами. :)

---

Digitman   (2005-03-03 14:28:00) [4]

> BillyJeans   (03.03.05 13:28) [6]


пурга.

---

Anatoly Podgoretsky   (2005-03-03 14:09:00) [5]

BillyJeans   (03.03.05 13:28) [6]
The system closes the handle automatically when the process terminates.

---

BillyJeans   (2005-03-03 13:28:00) [6]

2 Simply Alex   (02.03.05 23:51) [4]

а если программа была запущена и некорректно завершена её работа, mutex то останется

---

Morrison   (2005-03-03 00:09:00) [7]

Большое спасибо!
А где можно подробно почитать обо всем этом (всякие там THandle), желательно на русском?

---

Simply Alex   (2005-03-02 23:51:00) [8]

Добавь в файл проекта:


var
 HM: THandle;

function IsRunning: Boolean;
begin
 HM:=OpenMutex(MUTEX_ALL_ACCESS, false, 'SomeName');
 Result:=(HM <> 0);
 if (HM=0) then HM:=CreateMutex(nil, false, 'SomeName')
end;

Если твоя программа запущена, то IsRunning=TRUE...

---

Новичек   (2005-03-02 23:35:00) [9]

http://delphibase.spb.ru/

---

P.N.P.   (2005-03-02 23:34:00) [10]

>наверняка задавался неоднократно
А почему, исходя из этого предположения, в FAQ не заглянуть?

---

Anatoly Podgoretsky   (2005-03-02 23:33:00) [11]

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

---

Наверх