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?