Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить активную страницу [D7, WinXP]

heady © (2005-11-26 22:06:00)
Нашел замечательную функцию - выдает последнюю из ныне открытых страниц браузера:
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 15:11:00) [1]

> heady (27.11.05 11:43) [2]

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

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

heady (2005-11-27 11:43:00) [2]
Благодарю. Объясните лучше, что в параметрах хочет видеть функция SetLink и откуда брать этот ее параметр "Service"

Набережных С. (2005-11-27 07:45:00) [3]
Замечательный пример бездумного копирования чужого кода, без малейшей попытки в нем розобраться.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »