Главная страница
    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.45 MB
Время: 0.012 c
3-1131211822
Дмитрий Молчанов
2005-11-05 20:30
2005.12.25
Как прикруть индексы к существующему DBF файлу


3-1131438547
XGarik
2005-11-08 11:29
2005.12.25
Вложенный DataSet


14-1133758400
LordOfRock
2005-12-05 07:53
2005.12.25
И снова музыка


14-1133363339
oldman
2005-11-30 18:08
2005.12.25
Что является критерием наприкасаемости?


14-1133268593
Mike Kouzmine
2005-11-29 15:49
2005.12.25
Бедные немцы!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский