ShellExecute und UPX

[Die Muhkuh]

Hi,

jaja, das Shellexecute... :oops: .

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?

[MathiasSimmack]

Parameter werden bei "ShellExecute" separat angegeben.

[KLS]

Delphi-Quellcode:

procedure Starteprogramm(Pfad : string; parameter : string = '');
begin
  ShellExecute(0,'open',PChar(Pfad),PChar(parameter),nil,SW_SHOW);
end;

Du kannst aber auch "UPX shell" benutzen, das hat eigentlich schon alles was das herz begeehrt.

[fylo]

Hi

versuch vieleicht auch noch aus dem String

Delphi-Quellcode:

UPX := ExtractFilePath(Application.ExeName) + 'upx.exe';

ein

Delphi-Quellcode:

UPX := ExtractFilePath(Application.ExeName) + '\upx.exe';

mit dem "\" vor upx.exe zu machen.

[Boombuler]

Zitat:

Zitat von fylo

Hi

versuch vieleicht auch noch aus dem String

Delphi-Quellcode:

UPX := ExtractFilePath(Application.ExeName) + 'upx.exe';

ein

Delphi-Quellcode:

UPX := ExtractFilePath(Application.ExeName) + '\upx.exe';

mit dem "\" vor upx.exe zu machen.

Oder einfach die Funktion: IncludeTrailingPathDelimiter benutzen...

Greetz
Boombuler

[Nogge]

Das ist die korrekte Art, eine Datei zu öffnen:

Delphi-Quellcode:

  ShellExecute(handle,'open',PChar(extractfilename(filename)),
  PChar(parameters),PChar(extractfilepath(filename)),SW_NORMAL);

Btw der Backslash darf hier nicht gesetzt werden:

Delphi-Quellcode:

  UPX := ExtractFilePath(Application.ExeName) + '\upx.exe';

[MathiasSimmack]

Zitat:

Zitat von Nogge

Delphi-Quellcode:

  shellexecute(handle,'open',PChar(extractfilename(filename)),PChar(parameters),
  PChar(extractfilepath(filename)),SW_NORMAL);

das ist die korrekte art, eine datei zu öffnen.

Mit "ExtractFileName(filename)"? Na ja, bei Programmen, die in der Umgebung bekannt sind (PATH) mag das gehen.

Zitat:

btw der backslash darf nicht gesetzt werden.

:gruebel: :wiejetzt:

[Nogge]

Zitat:

Mit "ExtractFileName(filename)"? Na ja, bei Programmen, die in der Umgebung bekannt sind (PATH) mag das gehen.

Hö? Was willst du mir damit sagen?

[alcaeus]

Zitat:

Zitat von Nogge

Zitat:

Mit "ExtractFileName(filename)"? Na ja, bei Programmen, die in der Umgebung bekannt sind (PATH) mag das gehen.

Hö? Was willst du mir damit sagen?

Dass du damit den Pfad der anderen Anwendung wegschnipselst. Wenn der Pfad der Anwendung nicht in der PATH-Variable festgelegt wurde, startet da gar nichts!

Greetz
alcaeus

[Nogge]

Also bei mir funktioniert alles korrekt. Euer angeblicher Pfad-Parameter ist aber in Wirklichkeit der FileName-Parameter, erst nach dem Parameter-Parameter kommt der DIR-Parameter, worin ich den Pfad für die Datei angegeben habe.