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