ShellExecute und UPX

[Die Muhkuh]

Hi,

jaja, das Shellexecute... .

Delphi-Quellcode:

procedure Tfmain.Button3Click(Sender: TObject);
var
  UPX: String;
begin
  UPX := ExtractFilePath(Application.ExeName) + 'upx.exe';

  if not FileExists(UPX) then
  begin
    ShowMessage('Can''t find upx.exe');
    Exit;
  end;

  ShellExecute(Handle, nil, PChar(UPX + ' ' + edSource.Text) , nil, nil, SW_SHOWNORMAL);
end;

Ich möchte, wenn ich auf den Button drück, das UPX ausgeführt wird und meine Datei packt. Aber wenn ich das so mache, dann passiert da nichts. Im edSource.Text steht die Datei samt Pfad. Ich habs auch schon mit ExtractFileName versucht, aber ich bekomm das nicht gebacken.

Wie kann ich nun UPX aufrufen, das meine Datei gepackt wird?