Как вызвать функцию 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(<Тут хендл окна хрома>);