Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

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

 
WondeRu ©   (2004-08-18 15:49) [0]

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

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


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


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


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


 
WondeRu ©   (2004-08-18 16:54) [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;


 
WondeRu ©   (2004-08-18 17:29) [3]

заработало
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;



Страницы: 1 вся ветка

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1094553293
Alibaba
2004-09-07 14:34
2004.09.26
Восстановление


4-1092476916
Nomolos
2004-08-14 13:48
2004.09.26
Добавить свой пункт в меню "Найти"


14-1094146547
DeadMeat
2004-09-02 21:35
2004.09.26
Чего взять?...


1-1094639693
4МО
2004-09-08 14:34
2004.09.26
TListBox


4-1092131731
JJJ
2004-08-10 13:55
2004.09.26
Цвет компонента и текста