finde url'en

Label1.Caption := 'www.dr.dk';

/Martin

Martin: Hvad så hvis man ikke lige er inde på DR's side !? ;)

Snowball

...

Du kan bruge IE's COM interface til at få fat i den aktuele URL

/Martin

Jeg ved overhovedet ikke hvad ie's com interface er :/

Jamen så har du jo meget at lære !!

Tilføk DDEMan under Uses og brug følgende funktion:

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);  //<<-Avoid Mem Leak:  Thanks to ronit
          CloseLink;
        end;
      Cliente_DDE.Free;
end;

Du kalder så funktionen med showmessage(Get_URL('IExplore'));

Byt IExplore ud med Netscape hvis du benytter Netscape browseren !

Snowball

tak snowball!

Hvordan gør jeg sådan så den kun viser URLen, og ikke titlen på siden?

martinlind:
Det var jo en noget lam kommentar - hvad med at bidrage med noget konstruktivt istedet for det bavl du har gang i dér?
-folk kommer her trods alt for at få hjælp, og ikke for at få at vide at de har meget at lære - det ved de allerede godt - de er jo trods alt hér!