1:

If ParamCount>0 then ShowMessage(ParamStr(1));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if ParamCount > 0 then
  if ParamSTR(1) <> '' then
    if ExtractFileExt(ParamSTR(1)) <> '.mdb' then
      begin
        MessageDLG('Unbekanntes Format',mtError,[mbOK],0);
        Close;
      end
    else
      begin
        Daten.Clear;
        Daten.LoadFromFile(ParamSTR(1));
        MessageDLG('Laden erfolgreich!',mtInformation,[mbOK],0);
      end;                    

1:

InstallExt('.XXX','XXX-Datei','XXX',ExtractFilePath(ParamStr(0))+'XXX.exe','',0)                    

1:

InstallExt('.XXX','XXX-Datei','XXX',ExtractFilePath(ParamStr(0))+'XXX.exe','"%1"',0)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

  if ParamCount > 0 then
    begin
      if FileExists(ParamStr(1)) then FileName := ParamStr(1)
      else
        begin
          FileName := '';
          for i := 1 to ParamCount do
            begin
              FileName := FileName + ParamStr(i);
              if i <> ParamCount then FileName := FileName + ' '; 
            end;
        end;

      if ParamSTR(1) <> '' then
        if ExtractFileExt(FileName) <> '.mdb' then
          begin
            MessageDLG('Unbekanntes Format',mtError,[mbOK],0);
            Close;
          end
        else
          begin
            Daten.Clear;
            Daten.LoadFromFile(FileName);
            MessageDLG('Laden erfolgreich!',mtInformation,[mbOK],0);
          end;
    end;                    

1:

If FileExists(ParamStr(1))...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

function TForm1.InstallExt(Extension, ExtDescription, FileDescription, OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
var
  Reg: TRegistry;
begin
  Result := False;
  if Extension <> '' then
  begin
    if Extension[1] <> '.' then
      Extension := '.' + Extension;

    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      if Reg.OpenKey(Extension, True) then
      begin
       Reg.WriteString('', ExtDescription);
       if Reg.OpenKey('\' + ExtDescription, True) then
       begin
         Reg.WriteString('', FileDescription);
         if Reg.OpenKey('DefaultIcon', True) then
         begin
           Reg.WriteString('', Format('%s,%d', [OpenWith, IconIndex]));
           if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then
           begin
             Reg.WriteString('', Format('"%s" %s', [OpenWith, ParamString]));
             Result:=True;
           end;
         end;
       end;
     end;
  finally
    Reg.Free;
  end;
  end;
end;                    

1:

InstallExt('.Dateiendung', 'Beschreibung der Dateiendung', 'Beschreibung des Programms', ParamStr(0), '"%1"', 0);                    

1:
2:
3:
4:
5:
6:

If ParamCount > 0 Then
  If FileExists (ParamStr(1) )
  Then Begin
       FileName := ParamStr(1);
       TueWas mit FileName; /// z.B. FileName an den OpenDialog übergeben und die Öffnen-Prozedur durchlaufen
       End;