VPF::Как активизировать предыдущий экземпляр программы?

Gershkovich

Дата 8.2.2006, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Как активизировать предыдущий экземпляр программы?

Гугл нашел пример:
http://www.megalib.com/books/478/1517.htm

но он не компилится - Делфи ругается что переменная hPrevInst
is deprecated

Поиск по этому форуму ничего не дал.
Но наверняка эту тему обсуждали.

Подскажите пжл.

_hunter

Дата 8.2.2006, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

что понимается под "активизировать предыдущий экземпляр программы"?

--------------------

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 8.2.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(_hunter @ 8.2.2006, 11:40

)

что понимается под "активизировать предыдущий экземпляр программы"?

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

Демо

Дата 8.2.2006, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(Snowy @ 8.2.2006, 12:51

)

Если нашли, посылаем ему сообщение на активизацию и завершаемся.

Не все так просто.

--------------------

_hunter

Дата 8.2.2006, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Цитата(Snowy @ 8.2.2006, 10:51

)

Если запускается второй экземпляр программы, вместо этого активизировать предыдущий экземпляр и завершиться.

понятно. тогда да -- слать сообщение.

Цитата(Демо @ 8.2.2006, 11:00

)

Не все так просто.

что/почему?

--------------------

Tempora mutantur, et nos mutamur in illis...

remax

Дата 8.2.2006, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Можно использовать такой вариант файла проекта:

Код


uses
 .....
  JvJCLUtils;  // Используем JEDI

var
 i,WP,LP:integer;
 s:string;
 HWMainForm:HWND;
 CDS:TCopyDataStruct;
begin
  if ActivatePrevInstance(TMainForm.ClassName,application.MainForm.Caption)
    then
      begin
        HWMainForm:=FindPrevInstance(TMainForm.ClassName,application.MainForm.Caption);
        s:='';
        for i:=1 to ParamCount do
          s:=s+ParamStr(i)+#13;
        CDS.lpData:=PChar(S);
        CDS.cbData:=Length(S);
        CDS.dwData:=0;
        WP:=Application.Handle;
        LP:=Integer(@CDS);
        SendMessage(HWMainForm,WM_CopyData,WP,LP);
        Application.Terminate;
      end
    else        (* !- *)
      begin
        Application.Initialize;
        Application.CreateForm......... 
                  И  далее по тексту, то что было в файле проекта        ...... 
        ...........
       /* Обработка полученых параметров командной строки */
      for i:=1 to paramcount do   ......
 Application.Run;
end

end.

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

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »