I
ITShef
Вдел в инете кучу примеров, но почему-то ни один из них не работает. Я не очень пока разбираюсь с дескрипторами окон (знаю только общий принцип) и посему возникли трудности. Прошу Вашей помощи с исходником, который просто перехватывал бы URL текущей вкладки CHROME. Только рабочий, плиз, те, что в инете лежат - подошел только один:
Но как мне определить хендл хрома для передачи его в качестве параметра - не знаю, FindWindow не помог, напишите, плиз рабочий вариант, а не просто название функций и т.п.
Код:
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;
function GetChromeURL(hChrome: hwnd): string;
begin
Result := GetText(FindWindowEx(hChrome, 0, 'Chrome_AutocompleteEditView', nil));
end;
Но как мне определить хендл хрома для передачи его в качестве параметра - не знаю, FindWindow не помог, напишите, плиз рабочий вариант, а не просто название функций и т.п.