Получить активную страницу

← →
heady (2005-11-26 22:06) [0]

Нашел замечательную функцию - выдает последнюю из ныне открытых страниц браузера:
uses
windows, ddeman, ...

function Get_URL(Servicio: string): string;
var
Cliente_DDE: TDDEClientConv;
temp: PChar; //<<-------------------------This is new
begin
Result := "";
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,"WWW_GetWindowInfo");
temp := RequestData("0xFFFFFFFF");
Result := StrPas(temp);
StrDispose(temp); // <<-- Предотвращаем утечку памяти
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
showmessage(Get_URL("Netscape"));
// или
showmessage(Get_URL("IExplore"));
end;

Вопрос что писать вместо "Netscape" чтобы работать с Avant Browser"ом?
синтаксис: function SetLink(Service: string; Topic: string): Boolean; Т.е. вопрос - как получись Service некого открытого окна?

← →
Набережных С. © (2005-11-27 07:45) [1]

Замечательный пример бездумного копирования чужого кода, без малейшей попытки в нем розобраться.

← →
heady (2005-11-27 11:43) [2]

Благодарю. Объясните лучше, что в параметрах хочет видеть функция SetLink и откуда брать этот ее параметр "Service"

> heady (27.11.05 11:43) [2]

> Объясните лучше, что в параметрах хочет видеть функция SetLink

Нет, не лучше. Лучше попытайся разобраться, что это вообще такое и как оно работает.

Получить активную страницу Найти похожие ветки