| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать Handle всех окон данного приложения?

WondeRu ©   (2004-08-18 15:49:00) 

Здравствуйте!
Возникла проблема: на работе стоит Миранда, по которой я постоянно "общаюсь"! Но охота сделать так, чтобы окна чатов были прозрачные! Написал прогу, которая делает прозрачными все окна с типом #32770, но под этот тип подпадает добрая половина диалоговых окон ВИнды(Диспетчер задач тоже прозрачный)))!

Как "просветить" все окна Миранды (и только ее)?
Спасибо!

---

WondeRu   (2004-08-18 17:29:00) [1]

заработало
function EnumWindowsProc(hWindow : hWnd;
                        lParam  : LongInt) : Bool;  stdcall;
var
 h : Cardinal;
begin
 if mir = 0 then exit;

 GetWindowThreadProcessId(hWindow, @h);
 if h = mir then
   form1.SetTransparent(hWindow);
end;

---

WondeRu   (2004-08-18 16:54:00) [2]

Игорь Шевченко ©   (18.08.04 16:29) [1]
GetWindowThreadProcessId

не работает

 if GetWindowThreadProcessId(HWND1) = mir then
   Form1.SetTransparent(HWND1);//никогда не срабатывает!

function Miranda: Cardinal;
var
 Process32 : TProcessEntry32;
 H         : THandle;
 Next      : BOOL;
begin
 Result := 0;
 Process32.dwSize := SizeOf(TProcessEntry32);
 H := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if Process32First(h, Process32)
   then
     begin
       if AnsiLowerCase(Process32.szExeFile) = 'miranda32.exe' then Result := Process32.th32ProcessID;
       repeat
         Next := Process32Next(H, Process32);
         if Next then if AnsiLowerCase(Process32.szExeFile) = 'miranda32.exe' then
           Result := Process32.th32ProcessID;
       until not Next;
     end;
  CloseHandle(h);
end;

procedure TForm1.SetTransparent(Handle1: THandle);
const
 cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA);
 cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY);
var
 AStyle: Integer;
begin
 AStyle := GetWindowLong(Handle1, GWL_EXSTYLE);
 if (AStyle and WS_EX_LAYERED) = 0 then
   SetWindowLong(Handle1, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
 SetLayeredWindowAttributes(Handle1, 0, form1.TrackBar1.Position,
       cUseAlpha[True] or cUseColorKey[False]);

end;

procedure EnumProc(HWND1: hwnd; LPARAM: lParam);
var
 h : Integer;
begin
 if mir <> 0 then
 if GetWindowThreadProcessId(HWND1) = mir then
   Form1.SetTransparent(HWND1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumWindows(@EnumProc,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 mir := miranda;
end;


---

Игорь Шевченко   (2004-08-18 16:29:00) [3]

> Как "просветить" все окна Миранды (и только ее)?


Для каждого найденного окна узнать GetWindowThreadProcessId и сравнить с PID нужного процесса ?

---

Наверх