Also, erstens gewöhn dir mal bitte ordentliche Codeformatierung an, sonst kann das kein Schwein lesen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
starturl,startstring:
string;
begin
if ParamCount>0
then
startstring := ParamStr(1);
if not FileExists(startstring)
then
starturl := '
http://srvapp02/Home/default.aspx';
MyUrl := TiniFile.Create(startstring);
starturl := MyUrl.ReadString('
InternetShortcut','
URL','
');
WebBrowser1.Navigate(WideString('
http://srvapp02/P2plus/p2way/p2way.aspx'));
WebBrowser2.Navigate(WideString(starturl));
//ich hoffe da kommt noch was
Dann fällt dir hoffentlich auch auf dass du, auch wenn die Datei gar nicht existiert, versuchst diese zu öffnen.