Извините, может быть мой вопрос глупый...

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

Такое положение нежелательно... Окно программы должно открыться только один раз, а повторно программа не должна запускаться...

Я первый раз делала программу на Дельфи, и не знаю, как это организовать?
Подскажите, если можно, пожалуйста!!!

(убегаю, приду вечером...)

В FAQ на запрос "копия" я первой получил такую ссылку...

Как сделать, чтобы запускалась только одна копия приложения?

Советую сделать тоже самое....



Это сообщение отредактировал(а) Maverick - 5.5.2004, 18:25

Maverick
Ты прав, как всегда... Вот, только что скачала его... А до этого ни разу не удавалось докачать до конца... Что ж, будем искать... Спасибо.

Обычно я использую такой механизм:

в модуль проекта (*.dpr) добавляешь следующие строчки:

Код

uses  syncobjs ... var  CheckEvent: TEvent; ... begin  CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAMM_CHECKEXIST');  if CheckEvent.WaitFor(10) <> wrSignaled then  begin    Application.Terminate;  end; ... end;

Pegas

Получилось!!! И все работает превосходно! Спасибо!

Pegas, эээээ, а можно поподробнее куда вписать нужно?
Например, есть файл Project.dpr, состоящий из:

Код

program Project; uses  Forms,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2}, {$R *.res} begin  Application.Initialize;  Application.CreateForm(TForm2, Form2);  Application.CreateForm(TForm1, Form1);  Application.Run; end.

Как вписать код, который ты привел?

2 Chyslyvchyk :

Код

program Project; uses syncobjs, Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, {$R *.res} var CheckEvent: TEvent; begin CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAMM_CHECKEXIST'); if CheckEvent.WaitFor(10) <> wrSignaled then Application.Terminate; Application.Initialize; Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, Form1); Application.Run; end.

Только я бы вместо Application.Terminate делал Exit...

To p0s0l: Спасибо! Использую Exit - работает.

To p0s0l: Допустим пользователь открыл программу и свернул ее. Через некоторое время он забыл, что он программу уже открывал и кликнул на *.exe программы еще раз. Копия программы теперь запускаться не будет. А как сделать, чтобы развернулась или активировалась, или (как это еще назвать....) программа, что он свернул? То есть, чтобы перед светлыми очами пользователя открылась программа, которую он свернул.

нйти среди окон программу с твоим названием:

Код

HWND FindWindow(    LPCTSTR lpClassName, // pointer to class name    LPCTSTR lpWindowName  // pointer to window name   );

и послать ей определенное сообщение ( по которому программа будет себя показывать )

Это сообщение отредактировал(а) _hunter - 20.5.2004, 20:00

To _hunter:И снова: а куда это прописывать.

Если прога есть, т. е. при ветке if'а перед exit'ом послать сообщение уже запущенной программы (где-то я это видел), которая, обработав его, выполнит Application.Restore...

Тогда можно обойтись без Event'ов. Вот так:

Код

program Project; uses Windows, Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, {$R *.res} var wnd : HWND; begin wnd := FindWindow('TForm2', 'Form2'); if wnd <> 0 then begin  ShowWindow(wnd, SW_SHOW);  SetForeGroundWindow(wnd);  exit; end; Application.Initialize; Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, Form1); Application.Run; end.

Только обзови Form2 в что-нибудь по-замудреннее.
Если Form2.Name будет = 'Form2',
а Form2.Caption будет = 'Абракадабра',
то FindWindow делай таким:
wnd := FindWindow('TForm2', 'Абракадабра');

ЗЫ. Конечно же можно (и лучьше) делать как сказал г-н p0s0l, но это невсегда помогает, например когда свернуто приложение, еще свернута форма и ктому же она инвисибле, тогда приведенный им пример несработает
А вот такой пример поможет:
тело проекта

Код

if (FindWindow (PAnsiChar ('Tform1'), PAnsiChar ('Form1')) = 0)     or   (FindWindow (nil, PAnsiChar ('Delphi 7')) <> 0) {когда запущен Delphi то прога может найти это же окно в delphi и передумать запускаться} then           begin   Application.CreateForm (TForm1, Form1);   ....   Application.Run; end else begin   a := FindWindow (PAnsiChar ('TForm1'),PAnsiChar('Form1')); SendMessage (A, WM_ACTIVATEAPP, a, 0); //посылает сообщение с параметром равным handle окна end;

главный юнит

Код

...  private       procedure WndProc(var Message: TMessage); override; .... procedure TForm1.WndProc(var Message: TMessage); begin if (Message.Msg = WM_ACTIVATEAPP) and (Message.WParam = Handle)    then      begin         {здесь выполняешь все необходимые действия по развертыванию проги}      end  else    inherited end;

To p0s0l: nJIaKca.spb прав. Если окно приложения свернуто, тогда фокус просто переходит на него, но оно не открывается.

To nJIaKca.spb: Если использовать твой код - ругается: Undeclared identifier: 'WM_ACTIVATEAPP'. И как должна быть оглашена переменная 'а'?