1:
2:
3:
4:
5:
6:
7:
8:
9:

---------------------------
Anwendungsfehler
---------------------------
Exception EOSError in Modul FileShredder.exe bei 0000D56E.Systemfehler.  
Code: 1400.
Ungültiges Fensterhandle.
---------------------------
OK   
---------------------------                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TShredThread.Execute;
begin
  try
    with AC2FsForm1 do
    begin
      if MessageDlg('Sind sie sicher das sie die ausgewählte(n) Dateien löschen '+#13+#10+'wollen?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then
        exit;
      try
        EraseAction;
      except
        MessageDlg('Fehler beim Löschen der Dateien', mtError, [mbOK], 0);
        exit;
      end;
      Status(0,'Löschvorgang abschließen...',true);
      Progress_Small.Position:=0;
      Progress_Big.Progress:=0;
      if abort then
      begin
        Status(0,'Löschvorgang abgebrochen',true);
        MessageDlg('Der Löschvorgang wurde abgebrochen', mtError, [mbOK], 0);
      end
      else
      begin
        Status(0,'Löschvorgang abgeschlossen',true);
        MessageDlg('Der Löschvorgang wurde erfolgreich abgeschlossen.', mtInformation, [mbOK], 0);
      end;
    end;
  finally
    ShredThread.Terminate;
  end;
end;