Ich liebe ShellExecute

[Uwe Raabe]

Wenn du das per Kommandozeile startest, bist du dann in dem TEST Verzeichnis? (immerhin wird die 7z-Datei ja dort ohne Pfad angegeben)
Dann wäre die Pfadangabe bei der EXE aber redundant.

Bei ShellExecute ist das aktuelle Verzeichnis aber vermutlich ein anderes sein, weswegen dort die Pfade hilfreich sind.

Ich habe da ja die Leerzeichen in Verdacht. Vielleicht probierst du es mal in einem Pfad ohne diese.

Für den aktuellen Fall käme noch folgender Ansatz mit Quotes in Betracht:

Delphi-Quellcode:

  WorkFile := '"C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\7z.exe"';
  Params := 'x "C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\AAAAAA.zip"';

[creehawk]

@Uwe Raabe
Zitat : 'Bei ShellExecute ist das aktuelle Verzeichnis aber vermutlich ein anderes........' Also:

Das funktioniert:

Delphi-Quellcode:

  ChDir('C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST');
  WorkFile := '"C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\7z.exe"';
  Params := 'x "C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\Villa.zip"';
  ReturnCode := ShellExecute(Application.Handle,'open', PChar(Workfile),Pchar(Params),Nil, SW_shownormal);

Das funktioniert:

Delphi-Quellcode:

  ChDir('C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST');
  WorkFile := '"7z.exe"';
  Params := 'x "Villa.zip"';
  ReturnCode := ShellExecute(Application.Handle,'open', PChar(Workfile),Pchar(Params),Nil, SW_shownormal);

Das funktioniert NICHT.

Delphi-Quellcode:

  WorkFile := '"C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\7z.exe"';
  Params := 'x "C:\Users\citybuilders\Eigene Projekte\Eigene Projekte Scanner\TEST\Villa.zip"';
  ReturnCode := ShellExecute(Application.Handle,'open', PChar(Workfile),Pchar(Params),Nil, SW_shownormal);

Das Verzeichnis mit chDir zu verlegen ist offensichtlich notwendig. Aber warum? Habe ich bisher im Zusammenhang mit ShellExceute nicht gebraucht. Fordert das die 7z.exe an?

Jedenfalls danke ich allen für die Antworten und die Hilfe.

creehawk

Und da fällt mir noch was auf: das x für extract steht ausserhalb der Quotes der zip Datei. Das muss ventiliert werden.

[DeddyH]

Schau Dir den vorletzten Parameter von ShellExecute noch einmal an.

[dataspider]

Meine Version noch mal mit Output Directory:

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
Var
  ReturnCode: Integer;
  WorkFile: string;
  Params: string;
  Error: Integer;
  s: string;
begin
  WorkFile := '"c:\Program Files\7-Zip\7z.exe"';
  Params := 'x -o"d:\Buffer\Test 7z" "d:\Buffer\Test 7z\Test.7z"';
  s := WorkFile + ' ' + Params;
  // s = "c:\Program Files\7-Zip\7z.exe" x -o"d:\Buffer\Test 7z" "d:\Buffer\Test 7z\Test.7z"
  ReturnCode := ShellExecute(0, 'open', PChar(Workfile),Pchar(Params), nil, SW_shownormal);
  Error := GetLastError;
end;

Wenn es das Problem ist. Das Workdirectory muss man IMO nicht ändern, kann man aber (siehe DaddyH und Andere).

Frank