Как вызвать функцию T__T

[Le0n4iko_o]

подскажите пожалуйста как вызвать эту функцию

function GetChromeURL(hChrome: hwnd): string;
begin
Result := GetText(FindWindowEx(hChrome, 0, 'Chrome_AutocompleteEditView', nil));
end;

пробовал так

Label1.Caption:=GetChromeURL('Chrome');

но не работает

[Stilet]

GetText

Что это за функция? Может так:

function GetChromeURL(hChrome: hwnd): string;
var w:hwnd; s:array[0..255] of char;
begin
 Result:='';FillChar(s,256,#0);
 w:=FindWindowEx(hChrome, 0, 'Chrome_AutocompleteEditView', nil)
 if Iswindow(w) then begin
   GetWindowText(w,@s[0],256)
   Result := s;
 end;
end;

[Le0n4iko_o]

function GetText(WindowHandle: hwnd): string;
var
TxtLength: integer;
Buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0) + 1;
setlength(Buffer, TxtLength);
SendMessage(WindowHandle, wm_gettext, txtlength, longint(@Buffer[1]));
Result := Buffer;
end;

[Le0n4iko_o]

Stilet, так как вызвать функцию ?

[Stilet]

Например так:

Label1.Caption:=GetChromeURL(<Тут хендл окна хрома>);

[Sagit]

const
WCN1 = 'Chrome_WidgetWin_1';
var
WH: HWND;
begin
WH:=FindWindow(PChar(WCN1),nil);
if WH<>0 then
GetChromeURL(WH);
end;