Kombinujecie jak koń pod górę. Przecież od dawna wiadomo, że istnieje "takie coś" jak DDE i przy pomocy niego można odczytać dane aktywnej zakładki przez odpowiednie wywołanie WWW_GetWindowInfo, a wiedząc to możemy poszukać w google innych informacji i natrafiamy na info o Bugu w przeglądarkach związanym z metodą DDE o nazwie WWW_OpenURL. Mając tak wiele mówiącą nazwę wyszukujemy: delphi WWW_OpenURL i wszystko jasne. Ludziki "Pytacze": ja wiem i rozumiem, że dział Newbie, że wakacje, że w niektórych rejonach upalnie itd, itp, ale troszkę samodzielności i logicznego myślenia bym prosił. Macie mózgi to z nich korzystajcie póki Was starość nie dopadnie i z kondycją umysłową będzie gorzej :) I dodam, że żadne wysyłanie komunikatów do okna Opery nie ma sensu, bo została ona w taki sposób stworzona, że całe jej okno jest pod jedną klasą, nie ma jak IE wydzielonych kontrolek. W takich przypadkach wiadomo, że skoro inne, starsze przeglądarki mają taką możliwość to i tutaj nalezy skorzystać z DDE (http://pl.wikipedia.org/wiki/Dynamic_Data_Exchange).
uses
DDEMan;
procedure SetURL(Service, Url : string);
var
DDEClient : TDDEClientConv;
begin
DDEClient := TDDEClientConv.Create(nil);
with DDEClient do
begin
SetLink(Service, 'WWW_OpenURL');
RequestData(URL + ',,0x0,0x0');
CloseLink;
end;
DDEClient.Free;
end;
Użycie dla Opery i strony głownej serwisu 4p:
SetURL('Opera', 'http://4programmers.net');