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

подскажите пожалуйста как вызвать эту функцию
function GetChromeURL(hChrome: hwnd): string;
begin
Result := GetText(FindWindowEx(hChrome, 0, 'Chrome_AutocompleteEditView', nil));
end;
пробовал так
Label1.Caption:=GetChromeURL('Chrome');
но не работает
4 ответа

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;


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;


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


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