delphis spassbremse zeigt
hier, wie man ohne riesige Verrenkungen einen Browser dazu bringen kann, die aktuelle
URL im Browserfenster zurückzuliefern:
Delphi-Quellcode:
uses DDEMan;
function GetActiveBrowsersURL(Service: string): string;
var
ClDDE: TDDEClientConv;
zwi: PChar;
begin
ClDDE := TDDEClientConv.Create(nil);
with ClDDE do
begin
SetLink(Service, 'WWW_GetWindowInfo');
zwi := RequestData('0xFFFFFFFF');
CloseLink;
end;
Result := StrPas(zwi);
StrDispose(zwi);
ClDDE.Free;
end;
Die Verwendung des Schnipsels gestaltet sich auch schön einfach: einfach den Dateinamen des Browsers (nicht den Pfad!) ohne das Suffix in die Funktion werfen.
Delphi-Quellcode:
// IE
edit1.text := GetActiveBrowsersURL('Iexplore');
//Firefox
edit1.text := GetActiveBrowsersURL('Firefox');
[edit=Matze]Ein paar Absätze hinzugefüt. Mfg, Matze[/edit]