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

это код dpr.

Код

program Project1; uses   Forms, Windows,   Unit1 in 'Unit1.pas' {AppId0071}, var   PrevAppCopy: HWND; {$R *.res} begin   PrevAppCopy := FindWindow('TAppId0071', nil);   if PrevAppCopy <> 0 then   begin   SetForegroundWindow(PrevAppCopy);   Application.Terminate;   Exit;   end;   Application.Initialize;   Application.Title := 'Project1';   Application.CreateForm(TAppId0071, AppId0071);   Application.Run; end.

AppId0071 - это имя главной формы,
TAppId071 - это имя класса. Работает так: ищем окно с именем класса как у нашей проги и если находим то показываем его и делам Terminate текущей копии. Код этот работает, глюков не нашел. Надо только чтобы имя класса было уникальным и не совпало с каким-нибудь другим приложением.

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

instumental ну как минимум:
1. может у другого приложения совпасть имя формы=)
2. возможно твое приложение в рантайме создает форму и в момент проверки оно небыло создано

Цитата(instumental @ 8.1.2006, 17:16 )

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

Плохо искал http://forum.vingrad.ru/index.php?showtopic=56734

Цитата(z-END @ 8.1.2006, 18:26 )

instumental ну как минимум: 1. может у другого приложения совпасть имя формы=) 2. возможно твое приложение в рантайме создает форму и в момент проверки оно небыло создано

1. Конечно может совпасть. Но вероятность этого очень мала. Надо назвать позаковыристее и все.
Неприятность я заметил одну. Делфи создает форму с тем же именем. Поэтому при работающей делфи прога не запускается и считает что она уже работает, т.к. находит форму созданную delphi.
2. Не совсем понял. Ищем же главную форму приложения.

Цитата(Poseidon @ 8.1.2006, 19:07 )

Цитата(instumental @ 8.1.2006, 17:16 ) Искал как это сделать и находил всегда длиннющие решения, в которых не мог разобраться и которые еще к тому же и не работали почему-то. Плохо искал  http://forum.vingrad.ru/index.php?showtopic=56734

Спасибо за ссылку. Я вообще-то не здесь искал (не на этом форуме). Находил такое что мамадарагая. Уже отчаился найти.

А вот мой вареант оцените.

Код

unit Unit1; . . uses.........., Unit2......; . . var  A: Boolean;   Form1: TForm1; . . procedure TForm1.N7Click(Sender: TObject); begin   if A=false then   begin   Application.CreateForm(TForm2, Form2);   Form2.Show;   Form2.FreeOnRelease;   A:=true;   end   else   begin   Exit;   end; end;

Код

unit Unit2; . . implementation uses Unit1; {$R *.dfm} . . procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin A:=false; end; end.

Пеерменная A не распространяется на всю систему. В другой программе её не будет видно.
Самый лучший способ это послать WM сообщения всем окнам и если прийдет ответ то завершить себя. Иначе работать дальше.

Delphins
это он наверно проверку на форму2 делал...

Этот код для отдельно взятого окна.

А если надо для других то можно повторить этуже операчию только здругими переменными и другими Unit, главное что это работае и копия окна неоткроется пока переменная А имеет значение true.

А поповоду "послать WM сообщения всем окнам" можеш поподробнее раскозать ато и вправду лучше будет.

Создай мьютекс с явно уникальным именем. Если вернется ошибка already_exist - это дубликат. В отличие от атома и семафора он гарантированно умрет в момент выгрузки приложения.

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

Цитата(ivan219 @ 8.1.2006, 23:55 )

Этот код для отдельно взятого окна. А если надо для других то можно повторить этуже операчию только здругими переменными и другими Unit, главное что это работае и копия окна неоткроется пока переменная А имеет значение true.

проще:

Код

... procedure TForm1.N7Click(Sender: TObject);     begin if Form2<>nil then    begin    MessageDlg('Форма уже существует',mtWarning,[mbOk],0);    end    else    begin    Application.CreateForm(TForm2, Form2);        Form2.Show;    Form2.Update;    end; end; ... procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);     begin     Form2.Free;     end;

Это сообщение отредактировал(а) Albinos_x - 9.1.2006, 00:33

Да немного проще но после закрытия её незльзя болше открыть а сообшение осталось.

Вот ещё вареант.

Первая форма

Код

... procedure TForm1.N7Click(Sender: TObject); begin if not Assigned(Form2) then  begin  Form2 := TForm2.Create(Application);  Form2.Show;  end  else  begin  MessageDlg('Форма уже существует',mtWarning,[mbOk],0);  end; end; ...

Вторая форма

Код

... procedure TForm2.FormDestroy(Sender: TObject); begin Form2 := nil; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := CaFree; end; ...

Это сообщение отредактировал(а) ivan219 - 9.1.2006, 03:16

Я что-то не пойму, нужно запретить запуск прогаммы или формы? Если формы, то зачем такие извращения, если по Show и ShowModal больше одной копии формы и так не откроется?

А что, так нельзя?:

Код

program ANV; uses   Forms,   Windows,   Dialogs,   Main in 'Main.pas' {MainForm}; const    MEM_F_S = 1024;   MEM_F_N = 'BU'; //Здесь любое имя можешь написать. var   MemHnd : HWND; {$R *.res} begin   MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MEM_FILE_S, MEM_FILE_N);   if GetLastError <> ERROR_ALREADY_EXISTS then begin     Application.Initialize;     Application.Title := 'Thenoid';     Application.CreateForm(TMainForm, MainForm);     Application.Run;   end else MessageDlg('Приложение уже в рантайме!!!', mtError, [mbOk], 0);   CloseHandle(MemHnd); end.

Если для формы то нафига столько кода?
Она не откроется вторая. Конечно если вы её не создаёте в RunTime.

Самый просто способ это сообщения WM.

Как для программы так и для отдельных форм.

Код

const   wm_mymsg = WM_USER+66; //--------- procedure WM_MYAPPEXIST( {Че тут не помню... :(( wmparam1 и wmparam2 чтоли.} ); message wm_mymsg;

а потом процдуру обрабатывать. Сообщение обработается всегда. Кроме случаев когда оно зависло.
Сообщения ставятся в очеред на обработку.
Отсылааются они вроде как через SendMessage.
Неогу сказать точно потому, что Delphi перестал запускаться.

Я в одной из своих прог использовал следующий механизм:
При запуске программа пишет куда-либо (в файл или реестр) свой PID. Перед записью из того же места считывается PID предыдущей копии программы и выполняется TerminateProcess.
2 нюанса:
- мне нужно было именно перезапускать прогу (убивать старую версию) в случае повторного запуска;
- есть небольшой шанс, что убьешь левый процесс (в случае, если предыдущая версия проги завершилась и был запущен процесс с тем же PID).

Ну раз предыдущее сообщение было удалено бесследно, значит пусть участники форума остаются без правильного и корректного решения задачи.

Спасибо.

Демо, раз не пользуемся поиском... и не видем что данная тема разжеванна и на Vingrad-е(и не однакратно!)... то какой смысл оставлять ссылку... на конкурирующий ресурс? Реклама?

Без "правильного и корректного" решения остануться только те, кто поленился сделать пару кликов... - енто раз! А второе... автор темы спрашивает не решение... а о правильности уже имеющегося решения!

PS: Тема закрыта!

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

Это сообщение отредактировал(а) Girder - 9.3.2006, 13:25

Тема действительно не однократно, обсуждалась как у нас так и на многих форумах, сказано по ней много, примеров реализации не меньше, какие-то из них перестали работать в Win NT, какие-то продолжают работать по сей день, многие из них не универсальны, срабатывают не всегда или по просту не экономичны по отношению к ресурсам с точки зрения программирования под Delphi. Хотя кажется, что тут сложного, взять и где-то запомнить уникальный идентификатор приложения и при старте проверять, то место куда мы его запоминаем, если там есть данные, то значит приложение уже запущено. На помощь в этом деле к нам приходят возможность хранения файла данных в памяти процесса.
Вот модуль, который сделает все, что нужно:

Пример использования:


Это сообщение отредактировал(а) Alex - 9.3.2006, 13:32

Не совсем всё.

В приведенном классе не реализовано выдвижение уже запущенного приложения на передний план для ОС W2000 и выше.



будет работать неправильно.
Ссылка на MSDN: http://msdn.microsoft.com/library/default....roundwindow.asp
Добавлено @ 13:58
Вот код, который выполняет восстановление приложения:



(с) Rouse_

Для этого приложение, которое должно быть восстановлено, должно получить сообщение RestoreOldInstance.
Добавлено @ 14:00
Girder,
Существует ли где-либо на винграде такой код?;)
Добавлено @ 14:00
Или есть другие варианты? С удовольствием посмотрю и попробую

Это сообщение отредактировал(а) Демо - 9.3.2006, 14:02

Ссылку я тебе давал http://forum.vingrad.ru/index.php?showtopi...st&p=450839

Приспособить его... енто дело пяти секунд

PS: Причем дата ентого поста(на винграде)... горазда раньше... чем на исходниках. Так что делай выводы один уже нашел енти пять секунд ... шучю

Girder,
Поискал в форумах, в FAQ по ключевому слову SystemParametersInfo.

ничего не нашел;)

А именно изменения таймаута - один из ключевых моментов.


Приспособить не только можно. Но и нужно.
Вообще, видимо придется с нуля реализовать - сделать полный пример.

Приведи пример... где без них не будет работать.

Да какой тут пример. Попробуй пару вариантов:

1. Сверни приложение, на передний план выдвинь другое. Стартуй второую копию.
2. Не сворачивая приложение все то же самое, что и в п.1.

После этих манипуляций и выполнения кода по восстановлению результат должен быть таким:
Первая копия приложения должна развернуться на передний план на экране и получить фокус ввода.

В разных версиях Windows будет отличаться результат.

Girder,

Для чистоты эксперимента все равно придется реализовать полный цикл :
1. Опреджеление уже запущенной копии программы.
2. Извещение запущенной копии каким-либо образом о том, что сделана попытка запуска еще копии.
3. Поднятие первой копии наверх.

Вот, модифицировал модуль:

Alex,

Вроде бы все отлично на W2000 Server!
Надо протестировать на W98, XP SP1, XP SP2 еще.

Я тестировал, на SP2 и 98

Это сообщение отредактировал(а) Alex - 9.3.2006, 18:00

Господа.
О чем базар!
Демо, ты первый вариант Alex'а точно проверял? Или только предполагаешь что SetForegroundWindow(HPtr^) будет работать неправильно?

Я вот например таким вот способом пользуюсь уже не первый год. До сих пор проблем не было.

Более того, раз уж отсылаешь к MSDN, то будь добр, поясни тогда мне бестолковому, почему в данном случае, SetForegroundWindow(HPtr^) не должна сработать?
Только подчеркиваю, именно в данном случае, а не в том в котором его используешь ты!

Вот при твоем подходе да, тут мне ясно почему ты не получишь от SetForegroundWindow нужного тебе эффекта.

Короче, хотелось-бы получить толковые разяснения, либо забери свои слова обратно .

Первый - это какой? Дата 9.3.2006, 13:31?

Так мне не нужно его проверять, так как с этим вариантом в свое время повозился сколько-то.
Вот последний работает однозначно.
Только еще бы на XP SP1 проверить.
Добавлено @ 01:35


Я же привел ссылку из MSDN, где описана ситуация?

Вот точная цитата из MSDN:

Windows 98, Windows 2000: The system restricts which processes can set the foreground window. A process can set the foreground window only if one of the following conditions is true:

- The process is the foreground process.
- The process was started by the foreground process.
- The process received the last input event.
- There is no foreground process.
- The foreground process is being debugged.
- The foreground is not locked (see LockSetForegroundWindow).
- The foreground lock time-out has expired (see SPI_GETFOREGROUNDLOCKTIMEOUT in SystemParametersInfo).
- Windows 2000: No menus are active.




Чем данный случай отличается от общего?



Почему?;)

Это сообщение отредактировал(а) Демо - 10.3.2006, 01:52

Ну вот, ты так и не удосужился разобраться.


Именно он.




Вот именно, что последний, функцианально мало чем отличается от первого. А если быть более точным, то в плане работы SetForegroundWindow(HPtr^) - вообще НИЧЕМ!.
Т.е., первый вариант работает так-же как и второй.



Дык читать я и сам умею.

Ты мне докажи что ни одно из преречисленных условий не выполняется для примера Alex'а !

Лично я считаю что для него выполняется условие номер 1. Поэтому, SetForegroundWindow(HPtr^) прекрастно выполнит свое дело.


А что в твоем понимания есть "общий" случай? Я лично вижу в данном топике два случая, твой (точнее Rose) и Alex'а. А вот они имеют одно очень существенное в данном случае отличие:
У Alex'а, вызов SetForegroundWindow делается из второй копии приложения, а в тебя из первой. Вот в этом и есть главное отличие!
Именно поэтому, у тебя не выполняется первое условие. Вот и приходится извращаться с AttachThreadInput и SystemParametersInfo, дабы играя на побочных эффектах достич выполнения третьего условия.

В общем, надо с большим вниманием читать приводимые примеры и сопоставлять их с документацией.

Это сообщение отредактировал(а) Петрович - 10.3.2006, 02:55

Правда, справедливости ради, надо отметить что мое утверждение:

тоже не совсем верно. Точнее не для всех случаев.
А если еще точнее, то оно не верно именно для тех случаев, для которых и придумано такое, на первый взгляд странное, поведение SetForegroundWindow.
На самом деле, такое поведение SetForegroundWindow весьма осмысленно. А именно, опишу такой случай, слегка надуманный, но у меня встречается нечто подобное.
Итак:
Имеется программа которая при запуске выполняет некоторую фоновую работу (ну например закачка чего-то из инета). Показ состояния и управление этой работой производится через ее форму.
По ряду причин допустима работа только одной копии программы. По звершению работы, программа автоматически завершается.

Теперь, мне надо заставить выполняться это действо каждый час. Я "заряжаю" эту программу в шедулер. И вот, в один прекрасный час, сталкиваюсь с ситуацией, когда программа еще не завершилось от прошлого часа. Казалось-бы ничего страшного, вторая копия подняла на поверхность первую и сама ушла - именно так и задуманно.
Но, беда в том, что именно в это время, у меня активным было окно эксплорера, в котором я с остервенением (в слепую) набивал ответ в эту тему . И что получилось - активным стало окно первой копии, и весь мой последующий ввод попер в него, вместо эксплорера. Ну естественно, это было воспринято как комманда, причем, по случайному стечению обстоятельств я как раз набирал текст format c: <Enter> .
Потом были Y и пр. В общем, когда спохватился, спасать было нечего.

Таков был-бы сценарий если-бы SetForegroundWindow работал всегда одинаково - то чего добиваешся ты.

Но, слава программерам Microsoft, они, начиная с Windows 98 (наконец то) изменили ее поведение.
Теперь, в описанной ситуации, SetForegroundWindow будет почти проигнорированна! И вместо "всплытия", просто начнет мигать кнопка приложения в таск-баре.

Вот так.

Но все енто... справедливо только в пределах одного десктопа.

Т.е. если я запускаю копию в другом десктопе... то первое приложение не всплывет так что "правильное и корректное решения задачи" всегда надо писать в ковычках

Хм. В плане работы SetForeground да. За одним ма-а-аленьким исключением - работает совместно с функцией AttachThreadInput, что в корне меняет ситуацию.



См. пред. предложение. Условия, в которых выполняется SetForegroundWindow, изменились кардинально.



А каким образом выполняется первое условие? Приложение, которое надо выдвинуть на передний план, может быть даже не на втором плане, а далее.

Для того, чтобы ни одно из перечисленных условий не выполнялось, достаточно, чтобы выполнялось более одного приложения с GUI и приложение, которое должно быть активировано, было на заднем плане(при условии активности других приложений, конечно).



Нет, не поэтому. Почему? - Условие в пред. предложении.



Очень верное замечание!

Что касается постинга Дата 10.3.2006, 02:52, то пример, конечно же, надуман. Всё, что касается проблем, связанных с SetForeground, касается только лишь тех задач, которые инициированы пользователем.
Т.е. пользователь желает запустить приложение (именно пользователь). В этот момент ему именно это и нужно(а не системе со своими задачами по расписанию).
В том случае, если приложение уже запущено, но скрыто под другими 20-ю приложениями, и нужно активировать предыдущую копию, выдвинув ее на передний план без дополнительных телодвижений(клик на панели задач).
Заметь, что пользователю именно это и нужно!

Согласен.
Все течет все изменяется. Некоторые решения устаревают и становятся "некорректными" сами собой - просто меняются технологии. Вот и с десктопами так.

Конечно. С несколькими рабочими столами не приходилось работать, но думаю, что и в такой ситуации есть какое-нибудь решение.

Это сообщение отредактировал(а) Демо - 10.3.2006, 10:08

Демо, Мне лень с тобой спорить. Но, последнее что скажу, так это то что ты так и не проверил первый вариант Alex'а. И даже не удосужился понять его суть.

То которое надо "поднять" да. Но, приведенный перечень условий относится к приложению вызывающему SetForegroundWindow. А вторая копия, из которой вызывается SetForegroundWindow у Alex'а, как раз и есть то приложение которое было "только что" запущено.

Петрович,
Girder,
Alex,

Всё, признаю ошибку.
Похоже, Петрович прав, и в MSDN именно и написано о процессе, вызывающем SetForegroundWindow.
Первый вариант от Alex у меня срабатывает.
Попрошу знакомых протестировать на разных системах.

PS.

А английский, конечно, хотелось бы знать лучше;)

Это сообщение отредактировал(а) Демо - 10.3.2006, 10:23

Зачем попусту спорить? Это же и так очевидно что SetForegroundWindow нужно делать из активного приложения, а мой код был написан для других целей, чтобы показать как это сделать из приложения не являющегося активным, что он собственно и делает

ЗЫ: Любой овощь хорошь только будучи употреблен в нужное время © ИШ

Более чем точно.