Hi,
meine Frage: wie baue ich es ein dass Leerzeichen funktionieren bei diesem Code (zur Dateiverknüpfung aufs eigene Programm)?

Mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

function 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;

und:
 If (ParamCount > 0) and (FileExists(ParamStr(1))) then ShowMessage(ParamStr(1)); Mfg, Destroxi

Parameter mit Leerzeichen müssen unter Windows in Anführungszeichen gesetzt werden, ansonsten wird aus einem Parameter viele Parameter.

Du kannst natürlich, falls du nicht mit Anführungszeichen schicken willst, diese im Programm dann wieder mit einer Logik zusammenfügen und prüfen, welche Parameter zusammen einen einzigen Parameter bilden, aber einfacher ists doch sicher, einfach gequoted zu senden?

Ahh Danke
Geklärt, hab einfach bei

markieren

Delphi-Quellcode:

  Result := False;
  if Extension <> '' then

das eingesetzt:

markieren

Delphi-Quellcode:

  Result := False;
  ParamString := '"'+ParamString+'"';
  if Extension <> '' then

Mfg, Destroxi