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

Как поймать заголовки окон   Найти похожие ветки 

← →
Drunya   (2004-01-27 07:07) [0]

Написал процу по поимке заголовков окна и записи его в текстовый файл при нажатии клавиши мыши, но при повторном возвращении на окно с другого окна, почему-то не хочетъ печатать в файл заголовок. Если кто может мож поможет.
Буду признателен. Проца прелагается.

wnd1: Hwnd;

procedure GetNameWindow;
var
ti: TDateTime;
F1: TextFile;
wnd: HWnd;
bufname: array[0..127] of char;
begin
wnd := GetForegroundWindow;
if wnd1 <> wnd then
begin
GetWindowText(wnd, bufname, sizeof(bufname));
AssignFile(F1, "C:\1.txt");
Append(F1);
Write(F1, bufname);
Flush(F1);
CloseFile(F1);
end;
wnd1 := wnd;
end;

---

← →
Digitman ©   (2004-01-27 09:07) [1]

> почему-то не хочетъ


потому что wnd1 <> wnd = false .. вот и не печатает)

---

← →
Drunya   (2004-01-27 13:21) [2]

Ваши предложения Digitman....

---

← →
YuRock ©   (2004-01-27 13:33) [3]

Я предлагаю

end;
wnd1 := wnd;
end;

заменить на

wnd1 := wnd;
end;
end;


Не уверен, но должно помочь...:)

---

← →
Digitman ©   (2004-01-27 13:58) [4]

> Drunya   (27.01.04 13:21) [2]


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

ибо окно с одним и тем же именем, открываемое одним и тем же приложением, стартуемым неоднократно, вовсе не обязано иметь один и тот же хэндл ... и как результат вместо одной проблемы ты поимеешь еще и другую - в файле будут присутствовать одинаковые записи

---

← →
GrayFace ©   (2004-01-27 15:51) [5]

hook на wm_activate. Кто-то это недавно спрашивал(можно поиск) и в факе есть.

---

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

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



Память: 0.46 MB
Время: 0.023 c