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