Совместимость с HTML (помогите)

[slm]

День добрый. Написал программку для скрытого ввода пароля (от своих сотрудников). Но работает только с windows-приложениями, а когда доходит до HTML или PhP, то на этом все заканчивается. Пробовал по-разному - никак. Приведу текст dll без моих "умных" переносов на HTML.
Текст:

library pass;


uses
  Windows,
  Messages,
  SysUtils,
  System;

var
  SysHook: HHook = 0;
  Foc, prev, next: hWnd;
  Buf, BufP: PAnsiChar;
  Name, NameP, NameN: ansistring;

  


    function SysFuncHook(nCode: integer; wParam: word; lParam: Longint):
                      LongInt; stdCall;


    begin
      if nCode < 0
            then
       begin
          Result := CallNextHookEx(SysHook,nCode,wParam,lParam);
       end 
      else
        begin
           if nCode = HCBT_SETFOCUS then
           begin

// Получаю хэндл окна с фокусом и текст под ним

             Foc:=GetFocus;
             new(Buf);
             
             GetWindowText(Foc, Buf, 200);
             Name:=Buf;
             Buf:=nil;
             Dispose(Buf);

// Поиск соседнего окна и текст в нём

             prev:=getnextwindow(foc, gw_hwndnext);
             next:=getnextwindow(foc, gw_hwndprev);
             new(BufP);
             getwindowtext(prev, bufp, 200);
             NameP:=BufP;
             getwindowtext(next, bufp, 200);
             NameN:=BufP;
             bufp:=nil;
             Dispose(BufP);

// Если текст соседнего окна совпадает с Логином
//и текст окна с фокусом совпадает с контрольным паролем, то поменять окно с фокусом на пароль

             if NameP='MyLogin' then begin
                if Name='Pass' then begin

                     SetWindowText(Foc, pansichar('MyPassword'));

                  end;
              end;

// Обработать следующее окно,
//чтобы не привязываться ко взаимному расположению окон пароля и логина

             if NameN='MyLogin' then begin          
               if Name='Pass' then begin

                      SetWindowText(Foc, pansichar('MyPassword'));
           end;
          end;
      end;


       
      Result:= CallNextHookEx(SysHook,nCode,wParam,lParam);
      end;
       

 end;

procedure RunHook; export; stdCall;
begin
// Работа по хуку на смену фокуса - хуки на клавиатуру и 
// journalrecord отключают антивирусы

    SysHook:=SetWindowsHookEx(WH_CBT, @SysFuncHook, hInstance, 0);
     SysHook:= 0;

  end;
procedure StopHook; export; stdCall;
  begin
   UnhookWindowsHookEx(SysHook);
   SysHook:= 0;
  end;


exports
  RunHook, StopHook;
  begin

  end.

P.S. Из текста удалены некоторые проверки для читабельности. Оставлен только каркас.
Заранее благодарен.

P.P.S. Забыл добавить - надо, чтобы работали и в Windows и в HTML и в PhP, то есть независимо от типов. Реально вообще такое. Спасибо.

[BOBAH13]

Незнаю где такое видели

Buf, BufP: PAnsiChar;   
...
new(Buf); // ???
GetWindowText(Foc, Buf, 200);   
Name:=Buf;   
Buf:=nil; // ???
Dispose(Buf); // ???

Я вообще не пойму как это работает Может будет лучше

Buf: array[0..254] of CHAR;
...
FillChar(Buf, SizeOf(Buf), #0);
GetWindowText(Foc, Buf, SizeOf(Buf));   
Name:= String(Name); // обрубываем до первого нулевого байта

с остальным кодом по аналогии замените

и мне чет не сильно понятно " в Windows и в HTML и в PhP". Что тут сравнивается я не пойму Win - операционка, html - язык разметки, php - язык для формирования динамических html. Разъясните что имелось ввиду ?

[slm]

Кстати спасибо за корректную поправку. Я самоучка, мне никто не объяснял ничего, только по примерам.
А по совместимости я имел ввиду, что прога должна работать, примерно как PuntoSwitcher, которому все равно где набирается текст - что в интернет странице, что в windows. В любом случае Punto меняет текст, если надо.
А вот моя программа работает только в окнах windows, но не в html. Я понимаю, что я работаю с хэндлами, но пока по-другому не умею.
P.S. А там где вы поставили вопросительные знаки объясню: во-первых, у меня только так срабатывает корректно getwindowtext и setwindowtext.
А buf:=nil я ввел, потому что без этого хук срабатывает только один раз, а потом не хочет. Почему до сих пор не понимаю.

[BOBAH13]

Я самоучка, мне никто не объяснял ничего, только по примерам.

Интересно А я кто ? Экстрасенс ? Если у вас работает getwindowtext и освобождается так

buf := nil; dispose(buf)

тогда у вас какой то софт стоит из не земной цивилизации

[slm]

Даже не буду спорить. Я делаю, как могу, честно. У меня стоит задача я всеми способами пробую ее решить. Если неправильно, то почему работает у меня . Ладно, это вопрос другого плана.
Просто прошу либо помочь, либо хоть подсказать в какую сторону копать, может хук другой, может команды не те.
А может получится такой вопрос - получить адрес страницы, раскопать ее как текстовый файл, найти нужную строку и запустить ???
Помоги, если можешь. Честно я задолбался читать хелпы. Просто нет практики.
Если нет желания - мне не надо готовый код или уже exe-шник , просто направление мысли, подсказка. С меня пиво

[BOBAH13]

Я не очень уверен но, хук WH_GETMESSAGE или WH_MSGFILTER, и ловить WM_SETTEXT, а потом попробывать через

int GetClassName(          
    HWND hWnd,
    LPTSTR lpClassName,
    int nMaxCount
);

опредилять имя класса т.е. если 'EDIT' то окно для ввода текста и вперед заменять

[slm]

та же история - в полях ввода в интернет-страницах хук не срабатывает!!! А если сделать наподобие сниффера? Я копаю, но пока не получается.