Aktuelle URL

[CTV]

versuchs mal so:

Code:

uses 
  ddeman; 

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, 'WWW_GetWindowInfo'); 
    temp := RequestData('0xFFFFFFFF'); 
    Result := StrPas(temp); 
    StrDispose(temp); 
    CloseLink; 
  end; 
  ClDDE.Free; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetURL('IExplore')); 
  { ShowMessage(GetURL('Netscape')); } 
end;

Greetz Cyrus