Problem nach dem entpacken einer Zip Datei

[himitsu]

Delphi-Quellcode:

  ...
  archiver.Free;  <<< *
except
  archiver.Free;
  Exit;
end;

Wenn dort * eine Exception auftritt, was wird dann wohl passieren?
Außerdem unterdrückst du so einfach eine Fehlermeldung, so daß man garnicht weiß, warum es schief lief.

Zitat:

gibt ständig false

Dann frag doch mal nach, warum es das tut?

Delphi-Quellcode:

if FileExists('xyz.zip') then
begin
  // Daten entpacken
  archiver := TZipMaster19.Create(self);
  try
    with archiver do
    begin
      FSpecArgs.Clear;
      ZipFilename := 'xyz.zip';
      ExtrBaseDir := myDir;
      Extract;
    end;
  finally
    archiver.Free;
  end;
  IF RenameFile(myDir + 'FERTIG.DAT', myDir + 'STOP.DAT') then
  begin
    // tu irgendwas
  end else
    RaiseLastOSError;
end;

Und wie sieht der Pfad in myDir aus?

[add] RenameFile kapselt MoveFile ... also kann man danach ebenso GetLastError, GetLastError + SysErrorMessage oder einfach RaiseLastOSError nutzen.