контроль заголовков

[spydark91]

procedure TSystem32.Timer1Timer(Sender: TObject);
begin

h := GetForegroundWindow();
GetWindowText(h, capt, 254);
if string(capt)<>'заголовок' then o:=true;
if string(capt)='заголовок' then o:=false;
if o=true then
  begin
    if Pos('заголовок', String(capt)) <> 0 then
    a:=a+1;
  end
         else at:=at+1;

смысл такой: программа проверяет на зашел пользователь на определенную страницу или нет(в браузере). все вставлено в таймер с интервалом 1 сек.
действия

if string(capt)<>'заголовок' then o:=true;
if string(capt)='заголовок' then o:=false;

написаны для того,чтобы был именно сколько раз человек зашел на страницу,а не сколько он там провел времени

код не работает(

[spydark91]

есть кто живой?

[spydark91]

люди?помогите плиз

[Valio]

код не работает(

Если программа компилируется, то она работает. Но вот что она делает, это уже другой вопрос.

Ставь бряк и смотри что ты находишь, что с чем сравнивается и пр.

[Aliens_wolfs]

Попробуй так

var
h:hwnd;
capt:string;
begin
h := GetForegroundWindow();
if h <> 0 then begin
SetLength(capt, $FFFF);
SetLength(capt, GetWindowText(h, pchar(capt), $FFFF));
Caption:=capt; // для проверки названий в заголовке своего окна, можно убрат
if capt <> 'заголовок' then o:=true;
if capt = 'заголовок' then o:=false;
if o=true then
begin
if Pos('заголовок', capt) <> 0 then
inc(a);
end
else inc(at);
end;

а еще лучше h := GetForegroundWindow(); заменить на h:=FindWindow(nil,'заголовок'); тогда не нужно постоянно приоритетным делать браузеру, еще бы и имя класса вписать h:=FindWindow(класс браузера,'заголовок');