Как поймать заголовки окон

← →
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;

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

> Drunya (27.01.04 13:21) [2]

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

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

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

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