VPF::Как правильно активизировать окно

Delphist

Дата 16.10.2006, 10:42 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Мое приложение должно работать в одном экземпляре для этого я используя:

Код


function
  CheckAppRun:
  integer;
var
  Map: THandle;  
begin
  Map := CreateFileMapping($FFFFFFFF, nil, PAGE_READONLY, 0, 32,
    '%af_src_comm_0');
  if Map = 0 then
    Result := -1
  else if GetLastError = ERROR_ALREADY_EXISTS then
    Result := 1
  else
    Result := 0
end;

function
  ActivatePreviousInstance(WndClass: PChar): boolean;
var
  Wnd: HWND;
begin

  Result := false;
  if (CheckAppRun = 1) then
  begin
    if (WndClass <> nil) then
    begin
      {если окно программы указано сделать его активным в системе}
      Wnd := FindWindow(WndClass, nil);
      if (Wnd <> 0) then
      begin
        {Хочу отобразить мое приложение, но оно не отображается}
        SwitchToThisWindow(Wnd, True);
      end;
    end
    else
      MessageBox(0, 'Приложение уже запущено!', 'Сообщение',
        MB_ICONINFORMATION or MB_OK);
    Result := true;
  end;
end;

if ActivatePreviousInstance('TMainForm') then Halt(1);

Для отображения своего приложения я использовал SwitchToThisWindow(Wnd, True), но оно не отображается. Я использовал ShowWindow(Wnd, SW_SHOWMAXIMIZED) окно отображается, но после такой операции его нельзя свернуть.
Так как же правильно отобразить свое приложение не зависимо от того минимизировано оно или нет?

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

drkot

Дата 16.10.2006, 12:03 (ссылка)

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

Загрузка ...

Ищущий

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

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

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

Цитата(Delphist @ 16.10.2006, 10:42

)

использовал ShowWindow(Wnd, SW_SHOWMAXIMIZED)

У этой функции есть и другие параметры отображения.

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

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Delphist

Дата 16.10.2006, 15:36 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(drkot @ 16.10.2006, 13:03

)

У этой функции есть и другие параметры отображения.

Я все пробовал не помагает

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

Akella

Дата 16.10.2006, 15:55 (ссылка)

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

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Цитата(Delphist @ 16.10.2006, 10:42

)

Мое приложение должно работать в одном экземпляре для этого я используя:

не раз уже обсуждалось:
вот есть другой пример

Присоединённый файл ( Кол-во скачиваний: 6 )

uOnly_One.pas 0,87 Kb

_hunter

Дата 16.10.2006, 15:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

по-идее нужно не TMainForm а TApplication показывать

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

Tempora mutantur, et nos mutamur in illis...

Akella

Дата 16.10.2006, 15:59 (ссылка)

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

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

редактируем файл *.dpr (меню Project->view Source)

Код


uses
...

 uOnly_One in 'uOnly_One.pas',

{$R *.RES}

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

begin
 //проверка запуска программы
 //если запущена, то выводим на передний план
 if not init_mutex(UniqueString) then
 begin
   hw := findWindow('TApplication','Супермаркет'); //Супермаркет (см. меню Project->Options---->Application->Title)
   if hw <> 0 then
   begin
     setForeGroundWindow(hw);
     ShowWindow(hw,SW_SHOWNORMAL);
    end;
   exit; {Выходим до инициализации, если мьютекс уже есть}
 end;

  Application.Initialize;
  Application.Title := 'Супермаркет';
  Application.HelpFile := 'sm.chm';
  Application.CreateForm(TDM, DM);
...

Добавлено @ 16:00
Особенности:
1. даже при "гибели" приложения все, относящиеся к нему мьютексы удаляются с большой степенью вероятности.
2. Желательно "отметить" приложение в системе так, как указано в примере. При таком подходе Ваше приложение почти со стапроцентной вероятностью не будет запущено два раза.

Delphist

Дата 16.10.2006, 16:14 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(Akella @ 16.10.2006, 16:59

)

if not init_mutex(UniqueString) then
   if hw <> 0 then
   begin
     setForeGroundWindow(hw);
     ShowWindow(hw,SW_SHOWNORMAL);
   end;

Окно отображается но его не удается свернуть.

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

Akella

Дата 16.10.2006, 16:43 (ссылка)

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

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

значит у тебя где-то проблема, т.к. у меня, и не только у меня, работает, уже давно работает этот код

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