1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button2Click(Sender: TObject);
var
  R: TRegistry;
begin
R := TRegistry.Create;
  try
    R.RootKey := HKEY_CLASSES_ROOT;

    R.OpenKey('.zip', True);
    R.WriteString('', 'uploadfile');
    R.CloseKey;

    R.OpenKey('uploadfile\shell\Upload File\command', True);
    R.WriteString('',Form1.ediVerzeichniss.Text+'upload.exe %1');
    R.CloseKey;
  except
    R.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormActivate(Sender: TObject);
var filename:string;
begin
  if ParamCount > 0 then begin
    if ParamStr(1) = '/u' then begin
      showmessage(Paramstr(2));
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button3Click(Sender: TObject);
var  R: TRegistry;
begin
R := TRegistry.Create;
  try
    R.RootKey := HKEY_CLASSES_ROOT;

    R.OpenKey(Edit1.Text, True);
    R.DeleteKey(Edit1.Text);
    R.CloseKey;

    R.OpenKey('uploadfile\shell\Upload to Ramzal\command', True);
    R.DeleteKey('uploadfile\shell\Upload to Ramzal\command');
    R.CloseKey;
  except
    R.Free;
  end;
end;					

1:
2:

    R.OpenKey('WinRAR\shell\Upload to Ramzal\command', True);
    R.WriteString('','"'+paramstr(0)+'" "%1"');