Mit den unten stehenden Prozeduren will ich einen Beitrag aus Wikipedia anzeigen bzw. in GoogleMaps eine bestimmte Position.
Das funktioniert nur dann problemlos, wenn der Internet Explorer geöffnet ist.
Ist der IE nicht geöffnet gibt ShellExecute als Returncode 5 (ERROR_ACCESS_DENIED) zurück.
Weiß jemand was der Grund für dieses Verhalten, und ob und wie man das beheben kann.
Delphi-Quellcode:
type
TGeoPos=packed Record
Latitude:Extended;
Longitude:Extended;
end;
PROCEDURE ShowGoogleMaps(GP:TGeoPos);
var S,S1,S2:String;
begin
S1:=Trim(FloatToStrF(GP.Latitude,ffFixed,6,6));
S2:=Trim(FloatToStrF(-GP.Longitude,ffFixed,6,6));
S:='http://maps.google.de/maps?q='+S1+','+S2+'&z=12';
ShellExecute(0,'open',PWideChar(S),nil,nil,SW_SHOWNORMAL);
end;
PROCEDURE ShowWikipedia(const Term:String);
var S:String;
begin
S:='https://de.wikipedia.org/wiki/'+Term;
ShellExecute(0,'open',PWideChar(S),nil,nil,SW_SHOWNORMAL);
end;