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?