ShellExecute(FMain.Handle, nil, 'pacomp', PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"'), nil, SW_NORMAL);
Und damit es noch besser geht, würde ich die 2 Leerzeichen wieder einfügen und das eine Plus auf die richtige Seite verschieben
Delphi-Quellcode:
PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"')
^ ^
Edit1.Text + ' "C:\*.*"')
^^^^^