Internet Explorer

← →
RaZEr (2001-12-24 06:30) [1]

Если тебе нужен активный 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;

// Servicio : "IExplore" или "Netscape"

Internet Explorer Найти похожие ветки