Trennen von Pfad und Parameter

[almisoft]

Ich habe inzwischen eine Lösung gefunden, wenn auch nur speziell für den UninstallString:

Delphi-Quellcode:

procedure SplitPathAndParameter(Command:string; var Path,Param:string);
const AnzUninstaller=10;
const Uninstaller:array[1..AnzUninstaller] of string=
            ('RUNDLL32.DLL"','RUNDLL32"','MSIEXEC.EXE"','MSIEXEC"','.EXE"',
            'RUNDLL32.DLL','RUNDLL32','MSIEXEC.EXE','MSIEXEC','.EXE');
var p,i:integer;
begin
  for i:=1 to AnzUninstaller do begin
    p:=Pos(Uninstaller[i],UpperCase(Command));
    if p>0 then begin
      Inc(p,Length(Uninstaller[i]));
      Path:=Copy(Command,1,p-1);
      Param:=Copy(Command,p+1,Length(Command)-p);
      Break;
    end;
  end;
end;