Duvida Função retorna erro

[rectanglephishing]

Olá minha gente,


Com relação ao code abaixo, ele compila, mas quando é executado dá várias mensagens de erro em sequência dizendo algo com "que ainda não encontrou a url especificada".

(List of Bounds 0)

é mais ou menos isso que diz. Podem testar aí esse code!

já tentei ajeitar aqui de várias formas mas acontece o mesmo. Já pra monitorar a url de outros navegadores como Firefox e IE, eu consegui fazer.

Alguma dica quanto a monitoração pelo Chrome?

Caso alguém saiba de outro code que capture a url ativa do Chrome e queira compartilhar, agradeço demais!

Aguardo.

Segue o code mencionado acima >>>

//-------------------------------------------------------------------------------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
url : string;

implementation

{$R *.dfm}

Function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall;
var
List: TStrings;
hWndChrome, hWndChromeChild: HWND;
Buffer : array[0..255] of Char;
begin
asm
nop
end;
List := TStrings(Param);
//get the window caption
SendMessage(Handle, WM_GETTEXT, Length(Buffer), integer(@Buffer[0]));
//look for the chrome window with "Buffer" caption
hWndChrome := FindWindow('Chrome_WidgetWin_1', Buffer);
if hWndChrome <> 0 then
begin
hWndChromeChild := FindWindowEx(hWndChrome, 0, 'Chrome_OmniboxView', nil);
if hWndChromeChild <> 0 then
begin
SendMessage(hWndChromeChild, WM_GETTEXT, Length(Buffer), integer(@Buffer));
List.Add(Buffer);
end;
end;
Result := True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
slChromeUrl : TStringList;
begin
asm
nop
end;
slChromeUrl := TStringList.Create;
try
EnumWindows(@GetActivePageUrlFromChrome, LParam(slChromeUrl));
url := slChromeUrl.Strings[0];
if url = 'http://forum.guiadohacker.com.br' then
begin
{começa a fazer o desejado.}
ShowMessage('Teste');
end else
if url = 'https://www.facebook.com' then
begin
showmessage('teste2');
end;
Finally
FreeAndNil(slChromeUrl);
end;
end;

end.

//--------------------------------------------------------------------------------------------------------------------------------------------------- --