Es funktioniert zwischenzeitlich.
Mein Problem war, dass ich das .url File nach dem ersten lesen nicht mehr geschlossen hatte.
So konnte ich beim zweiten Programmaufruf nicht mehr aus der .url Datei lesen.
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var StartUrl:
String; startString:
String;
begin
{Paramter übergeben}
if ParamCount>0
then
startstring := ParamStr(1);
if not fileexists(startstring)
then
begin
starturl := '
http://srvapp02/Home/default.aspx';
end;
{Parameter aus der .url Datei lesen}
try
MyUrl := TiniFile.Create(startstring);
starturl := MyUrl.ReadString('
InternetShortcut','
URL','
heise.de');
finally
//showmessage (startstring);
//showmessage (starturl);
MyUrl.Free;
end;
{Searchway im Webbrowser1 laden}
WebBrowser1.Navigate(WideString('
http://srvapp02/p2way.aspx'));
{.url Datei in WebBrowser2 laden / falls vorhanden}
WebBrowser2.Navigate(WideString(starturl));
end;