kein Fenster öffnen bei Programmaufruf mit Parameter!

[Hedge]

paramStr musste in eckige runde Klammern gesetzt werden, aber sonst funktioniert es perfekt:

Delphi-Quellcode:

program Test;

uses
  Forms,shellapi,
  MainForm in 'MainForm.pas' {Form1};

{$R *.res}

begin
   //Parameter auswerten
   if paramstr(1)<>'' then
     ShellExecute(0,
                  'open',
                  PChar('http://www.bing.de'),
                  nil,
                  nil,
                   0)
  else
  begin

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end;
end.