Öffnen mit...

[Luckie]

rat mal, was in ParamStr(1) drin steht, wenn deine Anwendung mit Parametern gestratet wird.
Aber deien Farge zeigt mir, dass du nicht in der Hilfe gekuckt hast:

Zitat:

ParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.

Und soagr mit Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    elseif LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;