Aus Edit1 aus lesen

[himitsu]

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:\*.*"')
          ^^^^^