Auf URL des Browsers zugreifen

[Kinimod8]

Delphi-Quellcode:

uses ddeman;
function GetActiveBrowsersURL(Service: string): String;
var
  ClDDE: TDDEClientConv;
  zwi:PChar;
begin
  Result:= '';
  ClDDE:= TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service,'WWW_GetWindowInfo');
    zwi:= RequestData('0xFFFFFFFF');
    Result:= StrPas(zwi);
    StrDispose(zwi);
    CloseLink;
  end;
  ClDDE.Free;
end;

Dieser Code funktioniert zwar, aber er kommt durcheinander, wenn mehrere Fenster geöffnet sind. Wie kann man den Code richtig stellen, oder muss man dann einen anderen Code verwenden?