Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуздырить иконку в трей (c), Delphi XE, TTrayIcon, кривые руки 
:(
    Опции темы
CodeMonkey
Дата 14.1.2012, 05:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 29
Всего: 89
В описании EnumWindows не сказано, в каком порядке она обходит окна.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Чучмек
Дата 14.1.2012, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Код

keybd_event(VK_MENU,0,0,0);
keybd_event(VK_ESCAPE,0,0,0);
keybd_event(VK_ESCAPE,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
application.ProcessMessages;
if form1.Active then ...



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
b8195108
Дата 14.1.2012, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 2
Код

function isWindowFullVisible(AWnd: THandle): Boolean;
var
  R1, R2, R3: TRect;
begin
  GetWindowRect(AWnd, R1);
  GetWindowRect(GetDesktopWindow, R2);
  Result :=
    (IsWindowVisible(AWnd)) and (not IsIconic(AWnd)) and
    (R1.Left >= R2.Left) and (R1.Top >= R2.Top) and
    (R1.Right <= R2.Right) and (R1.Bottom <= R2.Bottom);
  while (AWnd <> 0) and (Result) do
    begin
      AWnd := GetNextWindow(AWnd, GW_HWNDPREV);
      if (IsWindowVisible(AWnd)) and (not IsIconic(AWnd)) then
        begin
          GetWindowRect(AWnd, R2);
          if IntersectRect(R3, R2, R1) then
            Result := False;
        end;
  end;
end;
PM MAIL   Вверх
MetalFan
Дата 14.1.2012, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
CodeMonkey, действительно, не сказано... но вроде бы работает. Может лучше конечно на GetNextWindow переделать...

Чучмек, тоже какой-то колхоз.

b8195108, не катит, т.к.
Цитата(MetalFan @  13.1.2012,  15:46 Найти цитируемый пост)
все способы, определяющие частично перекрытие окна не катят на мой взгляд. т.к. неправильно сработают в след.ситуации: наше окно открыто не на весь экран и видно полностью, рядом АКТИВНО окно другого приложения так же не на весь экран и не перекрывающее наше окно. В этом случае по логике с перекрытиями наше окно считается поверх всех, т.к. видно полностью, что на мой взгляд неправильно.







--------------------
There are always someone smarter than you...
PM MAIL   Вверх
b8195108
Дата 14.1.2012, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 2
MetalFan, сорри, пропустил.
зы имхо не совсем правильная логика)
PM MAIL   Вверх
MetalFan
Дата 16.1.2012, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Qu1nt, отличия есть. если перейти с нашего окна к SOT-окну, то при клике по иконке в трее наша программа сворачивается, хотя хотелось бы, чтобы она активировалась.

Это сообщение отредактировал(а) MetalFan - 16.1.2012, 12:35


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Чучмек
Дата 17.1.2012, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Вот как выглядит функция обратного вызова для  EnumWindows у uTorrent
Код

004b5583 sub_4b5583:                      ; function entry point
004b5583   push    $fffffff0
004b5585   push    dword ptr [esp+8]
004b5589   call    dword ptr [$4f178c]    ; GetWindowLongW (USER32.dll)
004b5589
004b558f   test    eax, $10000000
004b5594   jnz     loc_4b559b
004b5594
004b5596   xor     eax, eax
004b5598   inc     eax
004b5599   jmp     loc_4b55c0
004b5599
004b5599 ; ---------------------------------------------------------
004b5599
004b559b loc_4b559b:
004b559b   mov     eax, [esp+8]
004b559f   inc     dword ptr [eax]
004b55a1   push    esi
004b55a2   push    0
004b55a4   push    dword ptr [esp+$c]
004b55a8   call    dword ptr [$4f1828]    ; GetWindowThreadProcessId (USER32.dll)
004b55a8
004b55ae   mov     esi, eax
004b55b0   call    dword ptr [$4f1198]    ; GetCurrentThreadId (kernel32.dll)
004b55b0
004b55b6   xor     ecx, ecx
004b55b8   cmp     esi, eax
004b55ba   setnz   cl
004b55bd   pop     esi
004b55be   mov     eax, ecx
004b55bd
004b55c0 loc_4b55c0:
004b55c0   ret     8

Код

function cb(hwnd:cardinal;var lparam:cardinal):bool;stdcall;
begin
result:=true;
if WS_VISIBLE=WS_VISIBLE and GetWindowLong(hwnd,GWL_STYLE)then
 begin
 inc(lparam);
 if GetCurrentThreadId=GetWindowThreadProcessId(hwnd,nil) then result:=false;
 end;
end;

А вот сам вызов EnumWindows
 
Код

004b55c3 sub_4b55c3:                      ; function entry point
004b55c3   push    ebp
004b55c4   mov     ebp, esp
004b55c6   push    ecx
004b55c7   and     dword ptr [ebp-4], 0
004b55cb   lea     eax, [ebp-4]
004b55ce   push    eax
004b55cf   push    $4b5583
004b55d4   call    dword ptr [$4f16d8]    ; EnumWindows (USER32.dll)
004b55d4
004b55da   xor     eax, eax
004b55dc   cmp     dword ptr [ebp-4], 2
004b55e0   setle   al
004b55e3   leave
004b55e4   ret


Код

....
var1:=0;
result:=false;
EnumWindows(@cb,integer(@var1));
if var1<=2 then result:=true;


Это сообщение отредактировал(а) Чучмек - 17.1.2012, 00:41


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
MetalFan
Дата 17.1.2012, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Чучмек, ну во первых, uTorrent работает не совсем корректно в случае, когда на экране есть SOT-окно - он перестает сворачиваться в трей вообще. ну и во вторых, спасибо конечно за реверс-инжиниринг, но ты хоть проверил, что у тебя получилось то?)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Чучмек
Дата 17.1.2012, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Цитата(MetalFan @  17.1.2012,  09:26 Найти цитируемый пост)
но ты хоть проверил, что у тебя получилось то

Вот теперь проверил. Работает.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,shellapi;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ni(var msg:tmessage);message wm_user+1;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function cb(hwnd:cardinal;var lparam:cardinal):bool;stdcall;
begin
result:=true;
if WS_VISIBLE=WS_VISIBLE and GetWindowLong(hwnd,GWL_STYLE)then
 begin
 inc(lparam);
 if GetCurrentThreadId=GetWindowThreadProcessId(hwnd,nil) then result:=false;
 end;
end;

procedure TForm1.ni(var msg:tmessage);
var var1 :cardinal;
begin
if msg.LParam=messages.WM_LBUTTONDBLCLK then
 begin
 var1:=0;
 EnumWindows(@cb,integer(@var1));
 if var1<=2 then form1.Visible:=false else
   begin
   form1.Visible:=true;
   setForegroundWindow(form1.Handle);
   end;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var nd:TNotifyIconDataA ;
begin
nd.cbSize:=sizeof(nd);
nd.Wnd:=form1.Handle;
nd.uCallbackMessage:=wm_user+1;
nd.hIcon:=application.Icon.Handle;
nd.szTip:='Project1';
nd.uFlags:=NIF_TIP or NIF_ICON or NIF_MESSAGE;
Shell_NotifyIcon(NIM_ADD,@nd);
end;

end.




--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
MetalFan
Дата 17.1.2012, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Чучмек, опять же работает без учета текущего активного topmost окна... т.е. так же, как и мой последний вариант.
Но как вариант сойдет.
Я, кстати, остановился на варианте с GetNextWindow... т.к. действительно не стоит полагаться, что enumwindows обходит и будет обходить окна именно в порядке от верхнего к нижнему...

Это сообщение отредактировал(а) MetalFan - 17.1.2012, 13:48


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Чучмек
Дата 17.1.2012, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Это уже не ко мне. Это к создателям uTorrent.
Там, где ты про колхоз писал... Суть в том, чтобы после клика в трее "попросить" систему восстановить порядок окон.


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
MetalFan
Дата 17.1.2012, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Чучмек, да это понятно) просто uTorrent, как оказалось, не очень удачным примером оказался.
А про колхоз - ну посылать сочетания клавиш для того, чтобы "попросить" систему о чем-то, имхо, не совсем правильно...

Но все равно спасибо за активную помощь в поиске решения)  smile 

Это сообщение отредактировал(а) MetalFan - 17.1.2012, 13:51


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Чучмек
Дата 17.1.2012, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Цитата(MetalFan @  17.1.2012,  13:51 Найти цитируемый пост)
не очень удачным

А какой удачный?



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
MetalFan
Дата 17.1.2012, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Чучмек, идеальным, на мой взгляд, считаю поведение TheBat.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Qu1nt
Дата 17.1.2012, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
MetalFan, очередная итерация.
Код

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
  FToTray := not GetWindowLongPtr(GetForegroundWindow, GWL_EXSTYLE) and
    (WS_EX_TOPMOST or WS_EX_TOOLWINDOW) = 0;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  if WindowState = wsMinimized then
  begin
    WindowState := wsNormal;
    Application.Restore;
    Show;
    Application.BringToFront;
  end
  else
    if FToTray then
    begin
      Application.Minimize;
      Hide;
    end
    else
      Application.BringToFront;
end;

Всё короче и короче smile
PM MAIL   Вверх
Страницы: (4) Все 1 2 [3] 4 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1273 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.