Ich liebe ShellExecute

[creehawk]

Delphi-Quellcode:

begin
  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';
  ReturnCode := ShellExecute(0, 'open', PChar(Workfile),Pchar(Params), nil, SW_shownormal);
  Error := GetLastError;
  showmessage(ReturnCode.tostring);
  showmessage(Error.tostring);
end;

Und immer noch nix.

creehawk