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