Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.25;
Скачать: 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 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.238 c
2-1133883317
avsam
2005-12-06 18:35
2005.12.25
Контраст: цвет панели и надписи на панели.


1-1132948488
Kot
2005-11-25 22:54
2005.12.25
Работа с MSExcel - создание рамки таблицы


2-1133953074
novice
2005-12-07 13:57
2005.12.25
Запуск приложения с ключом


4-1130048108
Navi
2005-10-23 10:15
2005.12.25
Нужен текст без антиалиасинга


6-1126542746
pr0t0n
2005-09-12 20:32
2005.12.25
pochemu ne rabotaet????