Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.011 c
14-1133774439
Помогите
2005-12-05 12:20
2005.12.25
Пытаюсь запустить комп


4-1130396689
DancerMan
2005-10-27 11:04
2005.12.25
TWebBrowser запретить выделение


2-1134115604
Slaga
2005-12-09 11:06
2005.12.25
Написание Service s


14-1133635651
lookin
2005-12-03 21:47
2005.12.25
Можно ли выяснить IP человека, пославшего сообщение в аське?


1-1133179392
grach
2005-11-28 15:03
2005.12.25
Помогите, CRC-16





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский