Hi all, подскажите плиз
При обнаружении, что одна копия моего приложения уже запущена, я делаю

    ShowWindow(H, SW_RESTORE);
    SetForegroundWindow(H);

Вопрос: как эта первая копия может узнать, что его отобразили с помощью
ShowWindow ?

Здравствуйте, CR-LF, Вы писали:

CL>Hi all, подскажите плиз
CL>При обнаружении, что одна копия моего приложения уже запущена, я делаю
CL>

CL>    ShowWindow(H, SW_RESTORE);
CL>    SetForegroundWindow(H);
CL>

CL>Вопрос: как эта первая копия может узнать, что его отобразили с помощью
CL>ShowWindow ?

А ты не вызывай ShowWindow напрямую. Ты лучше пошли PostMessage'м месагу типа
WM_APP + 100
и отлавливая ее юзай ShowWindow.

> А ты не вызывай ShowWindow напрямую. Ты лучше пошли PostMessage'м месагу
> типа
> WM_APP + 100
> и отлавливая ее юзай ShowWindow.
А так, чтобы не заводить обработчик сообщений не получится ?

Здравствуйте, CR-LF, Вы писали:

CL>Hi all, подскажите плиз
CL>При обнаружении, что одна копия моего приложения уже запущена, я делаю
CL>

CL>    ShowWindow(H, SW_RESTORE);
CL>    SetForegroundWindow(H);
CL>

CL>Вопрос: как эта первая копия может узнать, что его отобразили с помощью
CL>ShowWindow ?
неверный способ обнаружения уже запущенной копии

> CL>Hi all, подскажите плиз
> CL>При обнаружении, что одна копия моего приложения уже запущена, я делаю
> CL>

> CL>    ShowWindow(H, SW_RESTORE);
> CL>    SetForegroundWindow(H);
> CL>

> CL>Вопрос: как эта первая копия может узнать, что его отобразили с помощью
> CL>ShowWindow ?
> неверный способ обнаружения уже запущенной копии
С чего ты взял ?
Я кажется вообще не показывал каким образом я это делаю.

Здравствуйте, CR-LF, Вы писали:

>> CL>Вопрос: как эта первая копия может узнать, что его отобразили с помощью
>> CL>ShowWindow ?
>> неверный способ обнаружения уже запущенной копии
CL>С чего ты взял ?
CL>Я кажется вообще не показывал каким образом я это делаю.
Ты это паказал... показал основновную свою функцию.
Вот посмотри на примере. Может перенесёшь. Или Будет полезно.

var
ReturnParam :boolean;
begin
ReturnParam:=false;
StartTimer.Enabled:=false;
WinExec('DBCS.exe GHH-JGHG-HJGH',0);
repeat
Application.ProcessMessages();
if (FindWindow('TPasswordForm','Ограничение доступа "База Данных XXXX" 1.0 (SoftWare Building 2002)') <> 0)
then
begin
ReturnParam:=true;
end;
until (ReturnParam = true);
Close();
end;

>>> неверный способ обнаружения уже запущенной копии
> CL>С чего ты взял ?
> CL>Я кажется вообще не показывал каким образом я это делаю.
> Ты это паказал... показал основновную свою функцию.
Когда ?!
Где ?!
У меня вот как делается

const
  MemFileSize = 127;
  MemFileName = 'q_day';

var
  MemHnd:HWND;
  hndl: THandle;

{$R *.res}

begin
  MemHnd := CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0,
     MemFileSize,MemFileName);
  if GetLastError <> ERROR_ALREADY_EXISTS then begin
    Application.Initialize;
    Application.CreateForm(TQForm, QForm);
    Application.Run;
  end
  else begin
    hndl := FindWindow('TQForm', 'Q-day');
    if hndl <> 0 then begin
      SendMessage(hndl,WM_RESTOREFROMTRAY,0,0);
      SetForegroundWindow(hndl);
    end;
  end;
  CloseHandle(MemHnd);
end.

> Вот посмотри на примере. Может перенесёшь. Или Будет полезно.
Че-то я мало что понял из этого ;(
Зачем там StartTimer, зачем WinExec, зачем ProcessMessages и наконец зачем
repeat ... until ?
Что если FindWindow с первого раза не нашла TPasswordForm, то потом она его
может найти ?

> var
> ReturnParam :boolean;
> begin
> ReturnParam:=false;
> StartTimer.Enabled:=false;
> WinExec('DBCS.exe GHH-JGHG-HJGH',0);
> repeat
>  Application.ProcessMessages();
>  if (FindWindow('TPasswordForm','Ограничение доступа ...)') <> 0)
>   then
>    begin
>     ReturnParam:=true;
>    end;
> until (ReturnParam = true);
> Close();
> end;

Здравствуйте, CR-LF, Вы писали:

CL> MemHnd := CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0,
CL> MemFileSize,MemFileName);

Если ты уж создал mmf, то почему бы не записать туда что-нибудь
полезное, например, хендл окна, которое должно быть активизировано
(и будет получать, скажем, параметры комстроки путем WM_COPYDATA).

CL> SendMessage(hndl,WM_RESTOREFROMTRAY,0,0);

Это выглядит подозрительно. В соответствие с политикой MS
non-foreground процесс не может стать foreground по своей воле,
а токмо волей foreground процесса.

CL> SetForegroundWindow(hndl);

Это тоже не совсем точно:

var 
  wnd, app: HWND; 
begin 
  wnd := .. // читаем (ищем) хендл активизируемого окна
  if wnd <> 0 then
    begin  
      {Test if app is minimized, if so restore it} 
      app:= GetWindowLong(wnd, GWL_HWNDPARENT); 
      if IsIconic(app) then 
        ShowWindow(app, SW_RESTORE); 
      SetForegroundWindow(wnd);
    end;
end;

> CL> MemHnd := CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0,
> CL> MemFileSize,MemFileName);
>
> Если ты уж создал mmf,
Что такое mmf ?
Если честно, я этот код взял с Кулибы и в общем-то не разобрался как он
работает.

>то почему бы не записать туда что-нибудь
> полезное, например, хендл окна, которое должно быть активизировано
> (и будет получать, скажем, параметры комстроки путем WM_COPYDATA).
Так а зачем туда что-то записывать и, главное, как ?

> CL> SendMessage(hndl,WM_RESTOREFROMTRAY,0,0);
>
> Это выглядит подозрительно. В соответствие с политикой MS
> non-foreground процесс не может стать foreground по своей воле,
> а токмо волей foreground процесса.
Дык вторая копия же foreground ...
Она следующей строкой первую и сделает foreground.

>

> var
>  wnd, app: HWND;
> begin
>  wnd := .. // читаем (ищем) хендл активизируемого окна
>  if wnd <> 0 then
>    begin
>      {Test if app is minimized, if so restore it}
>      app:= GetWindowLong(wnd, GWL_HWNDPARENT);
>      if IsIconic(app) then
>        ShowWindow(app, SW_RESTORE);
>      SetForegroundWindow(wnd);
>    end;
> end;
>

Та делал я раньше ShowWindow(app, SW_RESTORE) ...
Тока она потом не хочет обратно в трей заворачиваться.
Не знаю почему.

Здравствуйте, CR-LF, Вы писали:

>> CL> MemHnd := CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0,
>> Если ты уж создал mmf,
CL>Что такое mmf ?

Оно и есть, memory mapped file.

CL>Так а зачем туда что-то записывать и, главное, как ?

Чтобы там был, например, хендл того окна, который нужно поднять.
Пишем (читаем) так: MapViewOfFile, Move

CL>Дык вторая копия же foreground ...
CL>Она следующей строкой первую и сделает foreground.

Ну, а зачем тогда WM_RESTOREFROMTRAY? Что должна делать первая копия
при получении оного?

CL>Та делал я раньше ShowWindow(app, SW_RESTORE) ...
CL>Тока она потом не хочет обратно в трей заворачиваться.

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

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

> CL>Что такое mmf ?
>
> Оно и есть, memory mapped file.
А как это по-русски-то называется ?
И вообще зачем такие файлы нужны ?

> CL>Так а зачем туда что-то записывать и, главное, как ?
>
> Чтобы там был, например, хендл того окна, который нужно поднять.
Так а чем плохо FindWindow ?

> Пишем (читаем) так: MapViewOfFile, Move
Move — это паскалевская процедура ?
И как ей в данном случае воспользоваться ?

>
> CL>Дык вторая копия же foreground ...
> CL>Она следующей строкой первую и сделает foreground.
>
> Ну, а зачем тогда WM_RESTOREFROMTRAY? Что должна делать первая копия
> при получении оного?

TMyForm = class(TForm)
    ....
    procedure WMRestoreFtomTray(var Message: TMessage); message 
WM_RESTOREFROMTRAY;
end;

procedure TMyForm.WMRestoreFtomTray(var Message: TMessage);
begin
  RestoreFromTray(Self);
end;

procedure TMyForm.RestoreFromTray(Sender: TObject);
begin
  TrayIcon.ShowMainForm;
  TrayIcon.IconVisible := False
end;

>
> CL>Та делал я раньше ShowWindow(app, SW_RESTORE) ...
> CL>Тока она потом не хочет обратно в трей заворачиваться.
>
> Не видел, что там не заворачивается.
> В таких вещах каждая мелочь важна, например, действительно ли это app
> (ищешь-то ты другое окно),
Не понял.
А что же это тогда, если не app, если FindWindow его нашел, а ShowWindow
развернул ?

>единственная ли форма у приложения и т.д.
Форма единственная

>
> Кроме того, часто для подобных приложений кнопку в таскбаре прячут.
В смысле, когда програ в трее или когда развернута ?
У меня когда в трее в таскбаре ничего нет, а когда развернута — в таскбаре
кнопка как у всех.
Да и вообще при чем тут таскбар ?

CL>А так, чтобы не заводить обработчик сообщений не получится ?

TApplication.OnMessage ?

Или использовать готовые компоненты какие-нибудь

Здравствуйте, CR-LF, Вы писали:

>> Оно и есть, memory mapped file.
CL>А как это по-русски-то называется ?
CL>И вообще зачем такие файлы нужны ?

Файлы, проецируемые в память. Используются, например, для обмена
данными между процессами.
Или, скажем, для организации произвольного доступа к файлу.

CL>Так а чем плохо FindWindow ?

Ничего плохого в ней нет.
Но, если mmf создан, то почему не воспользоваться им по назначению,
вместо поиска по всему списку окон (класс, название этого окна
тоже придется зашивать в код).

CL>Move — это паскалевская процедура ?
CL>И как ей в данном случае воспользоваться ?

Help: Move Example

CL> procedure WMRestoreFtomTray(var Message: TMessage); message
CL>WM_RESTOREFROMTRAY;

Все равно, за бортом осталось много загадочного.
Можно даже предположить, что и порядок вызова SendMessage vs
SetForegroundWindow важен.

CL>А что же это тогда, если не app, если FindWindow его нашел, а ShowWindow
CL>развернул ?

У Application свое окно, которое owner (в MS смысле) окон дельфийских форм.

CL>Да и вообще при чем тут таскбар ?

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

Например, хотим мы показать форму, не активируя ее.
Казалось, чего проще: ShowWindow(Handle, SW_SHOWNA), однако,
для корректной работы этой формы потребуется, кроме того, Visible:= True.

Здравствуйте, Leonid Troyanovsky, Вы писали:

[Skip]

Я бы сначала посоветовал почитать ветку где обговаривается почему нельзя использовать FindWindow для поиска уже запущеной програмы
Если вкратце в двух словах, то просто мы не сможем гарантировать то что мы быстренько накликали на запуск програмы, а она успела создать нужное окно.

Для этого правильно использовать обьекты синхронизации, например мютексы — CreateMutex.
Пример я закидывал давным давно здесь

Автор: Danchik
Дата: 09.08.05

Здесь же можна посмотреть как правильно вызвать SetForegroundWindow через AttachThreadInput.

>>> Оно и есть, memory mapped file.
> CL>А как это по-русски-то называется ?
> CL>И вообще зачем такие файлы нужны ?
>
> Файлы, проецируемые в память. Используются, например, для обмена
> данными между процессами.
Припоминается что-то из FreeBSD

> CL>Move — это паскалевская процедура ?
> CL>И как ей в данном случае воспользоваться ?
>
> Help: Move Example
Ну и чего ?
Там стандартный пример, а в данном случае что написать вместо ???? (см.
ниже)

hFile := CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0, 
MemFileSize,MemFileName);
MapViewOfFile(hFile,  FILE_MAP_WRITE, 0, 0, 4);
move(Application.Handle, ????, SizeOf(HWND));
CloseHandle(hFile);

> CL>Да и вообще при чем тут таскбар ?
> Потому, как варианты прятать/не прятать имеют свои особенности.
> А при управлении окнами (даже своими) нельзя пренебрегать ни одной,
> казалось бы, мелочью.
> Например, хотим мы показать форму, не активируя ее.
> Казалось, чего проще: ShowWindow(Handle, SW_SHOWNA), однако,
> для корректной работы этой формы потребуется, кроме того, Visible:= True.
А я уже здесь как-то спрашивал, как мне узнать, что окно было развернуто с
помощью ShowWindow.
Вопрос остался открытым, вот я и сделал как сейчас, т.е. когда ему
посылается WM_RESTOREFROMTRAY, а оно уже само себя разворачивает.
Пока все работает нормально.

Здравствуйте, Danchik, Вы писали:

D>Я бы сначала посоветовал почитать ветку где обговаривается почему нельзя использовать FindWindow для поиска уже запущеной програмы

А что дало тебе уверенность в том, что я ее не читал?
Возможность использования FindWindow я не отвергал, бо она есть.

D>Если вкратце в двух словах, то просто мы не сможем гарантировать то что мы быстренько накликали на запуск програмы, а она успела создать нужное окно.

Никто не запрещает сначала убедиться, что окно есть (скажем, из существования
объекта ядра), а затем его искать.

D>Для этого правильно использовать обьекты синхронизации, например мютексы — CreateMutex.

Да, млин, какие еще мьютексы, если у нас готовый mmf (мог бы и почитать сначала)

D>Здесь же можна посмотреть как правильно вызвать SetForegroundWindow через AttachThreadInput.

Не вижу связи между правильностью вызова SFW и AttachThreadInput.
Если же речь идет об обходе запретов MS — даже обсуждать не хочу.

> Я бы сначала посоветовал почитать ветку где обговаривается почему нельзя
> использовать FindWindow для
>поиска уже запущеной програмы
Оп-п-паньки !!!
А что тогда ? — Использовать FindWindow для поиска незапущенных программ ?!

> Если вкратце в двух словах, то просто мы не сможем гарантировать то что мы
> быстренько накликали на
>запуск програмы, а она успела создать нужное окно.
Так я же ищу первую копию, которая была создана давно.

>
> Для этого правильно использовать обьекты синхронизации, например мютексы —
> CreateMutex.
> Пример я закидывал давным давно
> здесь<br />
<span class='lineQuote level1'>&gt;</span>

Автор: Danchik
Дата: 09.08.05

Да уж ;(
Очень просто ...

Здравствуйте, CR-LF, Вы писали:

CL>MapViewOfFile(hFile, FILE_MAP_WRITE, 0, 0, 4);

Здесь лучше последним 0, т.е. просмотр на весь файл.
А, вообще-то, это функция, возвращающая при удаче
указатель на начало просмотра.

CL>move(Application.Handle, ????, SizeOf(HWND));

move(Application.Handle, p^ {:PLongint}, SizeOf(HWND));

CL>CloseHandle(hFile);

Кроме того, положено делать UnMapViewOfFile.

CL>Пока все работает нормально.

Ну, и слава Богу.

Короче так пойдет ?

var
  hFile: HWND;
  hndl: THandle;
  p: ^LongInt;

begin
  hFile := 
CreateFileMapping(HWND($FFFFFFFF),nil,PAGE_READWRITE,0,MemFileSize,MemFileName);
  if GetLastError <> ERROR_ALREADY_EXISTS then begin
    p := MapViewOfFile(hFile,  FILE_MAP_WRITE, 0, 0, 0);
    move(Application.Handle, p^, SizeOf(HWND));
    UnMapViewOfFile(p);
    Application.Initialize;
    Application.CreateForm(TMyForm, MyForm);
    Application.Run;
  end
  else begin
    p := MapViewOfFile(hFile,  FILE_MAP_READ, 0, 0, 0);
    move(p^, hndl, SizeOf(HWND));
    UnMapViewOfFile(p);
    SendMessage(hndl,WM_RESTOREFROMTRAY,0,0);
    SetForegroundWindow(hndl);
  end;
  CloseHandle(hFile);
end.

Или

SendMessage(hndl,WM_RESTOREFROMTRAY,0,0);
SetForegroundWindow(hndl);

все же не то ?

Здравствуйте, Leonid Troyanovsky, Вы писали:

LT>Здравствуйте, Danchik, Вы писали:

D>>Я бы сначала посоветовал почитать ветку где обговаривается почему нельзя использовать FindWindow для поиска уже запущеной програмы

LT> А что дало тебе уверенность в том, что я ее не читал?
LT> Возможность использования FindWindow я не отвергал, бо она есть.

D>>Если вкратце в двух словах, то просто мы не сможем гарантировать то что мы быстренько накликали на запуск програмы, а она успела создать нужное окно.

LT> Никто не запрещает сначала убедиться, что окно есть (скажем, из существования
LT> объекта ядра), а затем его искать.
Именно об этом и говорилось

D>>Для этого правильно использовать обьекты синхронизации, например мютексы — CreateMutex.

LT> Да, млин, какие еще мьютексы, если у нас готовый mmf (мог бы и почитать сначала)
Да какя разница какой обьект ядра создавать, mmf не заметил.

D>>Здесь же можна посмотреть как правильно вызвать SetForegroundWindow через AttachThreadInput.

LT> Не вижу связи между правильностью вызова SFW и AttachThreadInput.
LT> Если же речь идет об обходе запретов MS — даже обсуждать не хочу.

Да потому что начиная с Win2k SetForegroundWindow перестал работать как ожидалось.