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

Вниз

Как из InternetExplorer-а вытащить URL-адрес и заголовок окна?   Найти похожие ветки 

 
killer   (2003-11-14 15:25) [0]

Как из активного окна InternetExplorer-а вытащить URL-адрес (из командной строки) и заголовок окна (где кнопочки "свернуть", "развернуть", "закрыть")?


 
killer   (2003-11-14 15:46) [1]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
GH@ST   (2003-11-14 16:17) [2]

http://www.oligo.dk/iedelphi/


 
Nikolay M.   (2003-11-14 21:35) [3]


> Как из активного окна InternetExplorer-а вытащить URL-адрес
> (из командной строки)

А если поискать? На каждом углу, по-моему, валяется:

uses
windows, ddeman, ...

function Get_URL(Servicio: string): string;
var
Cliente_DDE: TDDEClientConv;
temp: PChar;
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;


 
Japan   (2003-12-24 02:19) [4]

А как узнать, когда был новый урл загружен?



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

Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.01 c
1-93894
Andy BitOff
2004-02-16 02:18
2004.02.29
Вопрос знатокам, по поводу TStringList


14-94096
DeMoN-777
2004-02-05 22:04
2004.02.29
Беспредел...


1-93988
Настенька
2004-02-17 08:43
2004.02.29
edit


6-94074
SergP
2003-12-22 03:20
2004.02.29
У кого-нить удавалось делать POST при помощи NMHTTP или IdHTTP?


3-93793
Sergvc
2004-02-03 16:06
2004.02.29
список баз в SQL Server





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