Moin,
würde gerne die
URL aus dem IE auslesen. Leider hat bis jetzt jeder Code den ich aus dem Internet hatte nicht funktioniert. Jetzt habe ich anscheinend einen Code gefunden, der funktioniert:
Delphi-Quellcode:
function GetURL(Service:
string):
string;
var
ClDDE: TDDEClientConv;
temp: PChar;
begin
Result := '
';
ClDDE := TDDEClientConv.Create(
nil);
with ClDDE
do
begin
SetLink(Service, '
WWW_GetWindowInfo');
temp := RequestData('
0xFFFFFFFF');
//FEHLER!
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
//Aufruf:
URL := GetURL('
IExplore');
Allerdings tritt an der oben makierten Stelle der Fehler auf 'INkompatible Typen PWide und PAnsi Char'. Setze ich das ganze aber in PChar Klammer, bekomme ich nur die tollen chinesichen Schriftzeichen zurück
Aber immerhin schon etwas, jeder andere Code hat radikal gestreikt
.
Danke,
Lukas