Dateien endgültig löschen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Mark.

Du musst damit rechnen, dass dein OpenDialog vom Benutzer abgebrochen wird - ein Löschen muss dann unterbleiben. Auch musst du den Namen der Datei übernehmen, damit du sie löschen kannst:

Delphi-Quellcode:

begin
  with OpenDialog do
    if Execute then
    begin
      DeleteFileDuringNextSystemBoot(FileName);
      messagebox(FoFkicker.Handle, 'You must restart Windows! ', 'INFO', 0);
    end;
end;

Freundliche Grüße vom marabu