[Kontextmenü] - Pfad in einem Parameter übergeben

[xZise]

Also dann springt er nicht mehr korrekt an:

Delphi-Quellcode:

program FileLink;

uses
  Forms, ClipBrd, SysUtils,
  uMain in 'uMain.pas' {Form1};

{$R *.res}

var
  i : Integer;
begin
  Application.Initialize;

  if ParamCount > 1 then begin
    Clipboard.AsText := ParamStr(1);
    for i := 2 to ParamCount do
      Clipboard.AsText := Clipboard.AsText + ' ' + ParamStr(i);
  end;

  if (not FileExists(Clipboard.AsText)) or (ParamCount = 1) then begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Entweder der Pfad ist dann falsch, oder es gibt nur einen Paramter (obwohl der ja der Parameter des Programms ist...)