Ich liebe ShellExecute

[creehawk]

Moin Moin.

Wenn ich zu Fuß via Console eingebe:

Code:

C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST>7z.exe x aaaaaa.7z

macht er genau das was er soll: entpacken der 7z Datei.

In meinem Wahn setze ich das dann um in eine ShellExecute Anweisung.

Delphi-Quellcode:

  begin
    WorkFile := '"' + PrgPath + 'Test\7z.exe"';
    Params   := '" x AAAAAA.7z"';
    ReturnCode := ShellExecute(0, 'open', PChar(Workfile),Pchar(Params), nil, SW_shownormal);
    Error := GetLastError;
  end;

Returncode ist 42, angeblich ja alles primstens, ErrorCode ist 0, Ergebnis ist : Nichts. Das Archiv wird nicht entpackt.

Meine Frage: Wen erschiesse ich zu erst : den Computer oder mich?

creehawk

[Gausi]

Sind die Gänsefüßchen (") bei Params evtl. das Problem?

[creehawk]

Nein, leider nicht. Ob mit oder ohne . geht nicht.

creehawk

[Uwe Raabe]

Was genau steht denn in PrgPath?

[creehawk]

Naja, dies hier:

Code:

C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\

Hole ich zur Laufzeit über :

  PRGPath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));

creehawk

[BlueStarHH]

Gib mal einen vollen Pfad zur AAAAAA.7z an. Evtl. sucht er die ganz woanders.