Скачать: CL | DM;

Как найти handlu всех открытых приложений ???   Найти похожие ветки 

← →
PRT   (2006-06-17 22:28) [0]

Доброго времени суток! Подскажите как найти handlu всех открытых приложений ???
(только приложения с окнами)

---

← →
guard_gg ©   (2006-06-18 08:10) [1]

Чтобы потом создать таймер и посылать с переодичностью в 1мс всем несвернутым собщение WM_CLOSE  :)  ??

Скажи для чего, может пришлю.. ;)

---

← →
PRT   (2006-06-18 12:05) [2]

> Чтобы потом создать таймер и посылать с переодичностью в
> 1мс всем несвернутым собщение WM_CLOSE  :)  ??

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

---

← →
Handle   (2006-06-18 12:53) [3]

var
 Wnd:        hWnd;
 buff:       array[0..MAX_PATH] of Char;
 PrId:       DWORD;
 PrHandle:   THandle;
begin
 ListBox1.Clear;
 Wnd := GetWindow(Handle, gw_HWndFirst);
 while Wnd <> 0 do begin
   if (Wnd <> Application.Handle) and
     IsWindowVisible(Wnd) and
     (GetWindow(Wnd, gw_Owner) = 0) and
     (GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
     then begin
     GetWindowThreadProcessId(Wnd, PrId);
     PrHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PrId);
     ListBox1.Items.Add(IntToStr(PrHandle));

   end;
   Wnd := GetWindow(Wnd, gw_hWndNext);
 end;
 ListBox1.ItemIndex := 0;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c