Ich liebe ShellExecute

[dataspider]

Ich habe es mal bei mir getestet.
Bei mir wird entpackt, alle fein.

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 "d:\Buffer\Test 7z\Test.7z"';
  s := WorkFile + ' ' + Params;
  // s = "c:\Program Files\7-Zip\7z.exe" x "d:\Buffer\Test 7z\Test.7z"
  ReturnCode := ShellExecute(0, 'open', PChar(Workfile),Pchar(Params), nil, SW_shownormal);
  Error := GetLastError;
end;

Frank

[just beginner]

Schon einmal

Delphi-Quellcode:

Workdir := ExtractFilepath(Workfile);
ShellExecute(0, 'open', PChar(Workfile),Pchar(Params), PChar(Workdir), SW_shownormal);

probiert?

[sakura]

Du musst ShellExecute das Arbeitsverzeichnis mitteilen

......

[DeddyH]

Siehe den Post über Deinem

[himitsu]

Zitat von sakura:

Du musst ShellExecute das Arbeitsverzeichnis mitteilen

Jupp, oder 7-Zip das Ausgabeverzeichnis mitgeben (-o"C:\irgendwo\" ),
aber zusätzlich das Arbeitsverzeichnis kann eh nie verkehrt sein, denn 7-Zip erstellt gern mal im Arbeitsverzeichnis Temp-Dateien.

Delphi-Quellcode:

WorkDir := 'd:\Buffer\Test 7z';
..., PChar(Params), PChar(WorkDir), SW_ShowNormal);

Und in WorkFile gehören eigentlich keine Anführungszeichen, wenn mit dem zweiten Params-Parameter gearbeitet wird.
{Operation,} CommandLine, nil {, WorkDir} oder {Operation,} ProgramPath, Parameters {, WorkDir} .

[dataspider]

himitsu

Denk dran, der Pfad hat ein Leerzeichen...
OK, habs gerade bei dir gelesen. Das in WorkDir keine Anführungszeichen benötigt werden, wusste ich nicht...

[himitsu]

Der Pfad "enthält" aber keine Anführungszeichen.

CommandLine <> Path

CommandLine ist so, wie man es in der Console, bzw. Batch angiebt, inkl. der Parameter. Hier sind Leerzeichen = Trennzeichen.
Und als Pfad ist es so, wie bei jeder anderen Win32-API auch. Und du gibst doch bei einem CreateFile oder MoveFile auch keine " mit an.