Delphi dicas

Pegar a url ativa no browser

//Declare DDEMAN no uses



function URL(Service: string): String;

var

ClDDE: TDDEClientConv;

temp:PChar;

begin

        Result := '';

        ClDDE:= TDDEClientConv.Create( nil );

        with ClDDE do

        begin

                SetLink(Service,'WWW_GetWindowInfo');

                temp := RequestData('0xFFFFFFFF');

                Result := StrPas(temp);

                StrDispose(temp);

                CloseLink;

        end;

        ClDDE.Free;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

        ShowMessage(URL('IExplore'));

end;

por : Mauricio Magalhães