Скачать: CL | DM;

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

← →
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"

---

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

> heady   (27.11.05 11:43) [2]


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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c