Follow along with the video below to see how to install our site as a web app on your home screen.
Примечание: This feature may not be available in some browsers.
Получаешь хендл нужного приложения (например, по заголовку окна), а потом с помощью sendmessage творишь с ним что угодно.
uses DdeMan;
function GetURL(Browser: string): string;
var
Client_DDE: TDDEClientConv;
temp: PChar;
begin
Result := '';
Client_DDE:= TDDEClientConv.Create( nil );
with Client_DDE do
begin
SetLink(Browser, 'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
// оставляем только урл
Delete(Result, Pos(',', Result), Length(Result)-Pos(',', Result)+1);
// удаляем кавычки
Delete(Result, 1, 1);
Delete(Result, Length(Result), 1);
StrDispose(temp);
CloseLink;
end;
Client_DDE.Free;
end;
ShowMessage(GetURL ('Opera'));
Получить Handle поля ввода адреса в Опере не удастся, все сообщения берет на себя тулбар, на котором лежит combobox с адресом. Адрес можно получить следующим образом (проверял на D7
Код:uses DdeMan; function GetURL(Browser: string): string; var Client_DDE: TDDEClientConv; temp: PChar; begin Result := ''; Client_DDE:= TDDEClientConv.Create( nil ); with Client_DDE do begin SetLink(Browser, 'WWW_GetWindowInfo'); temp := RequestData('0xFFFFFFFF'); Result := StrPas(temp); // оставляем только урл Delete(Result, Pos(',', Result), Length(Result)-Pos(',', Result)+1); // удаляем кавычки Delete(Result, 1, 1); Delete(Result, Length(Result), 1); StrDispose(temp); CloseLink; end; Client_DDE.Free; end; ShowMessage(GetURL ('Opera'));
Гы это знает любой) а ты преведи примером как с чужого окна содрать текст например с оперы с поля url!!
не вкурсах какой прогой мона снифануть число в игре? (чтобы узнать имя переменой в которой число хранится)