Problem mit auslesen der URL aus dem Browser

[ByTheTime]

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 :P Aber immerhin schon etwas, jeder andere Code hat radikal gestreikt :-D.

Danke,
Lukas

[DeddyH]

TDdeClientConv.RequestData

Zitat:

Delphi-Quellcode:

function RequestData(const Item: string): PAnsiChar;

Seit Delphi 2009 ist PChar aber PWideChar, Du musst temp also explizit als PAnsiChar deklarieren.

[ByTheTime]

Danke für die Hilfe, hat sofort geklappt. :)