ov3rr1d3
18/09/2009, 10:06
como faço para pegar url atual no brownser CHROME.
estou usando a seguinte...
function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE:= TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'[Only registered and activated users can see links]');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
Usando
label1.caption := GetURL(IEXPLORER);
label2 := GetURL(FireFox);
Mais nao pega do CHROME. laguem sabe como faço para pegar. :(
Grato.
estou usando a seguinte...
function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE:= TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'[Only registered and activated users can see links]');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
Usando
label1.caption := GetURL(IEXPLORER);
label2 := GetURL(FireFox);
Mais nao pega do CHROME. laguem sabe como faço para pegar. :(
Grato.