Folgender Code funktioniert zwar in XE2, bringt einen aber in vorherigen Versionen in große Schwierigkeiten, wenn der Nutzer auf die Idee kommt, Esc zu drücken oder auf X zu klicken und sich wundert, warum alle Dateien weg sind.
Delphi-Quellcode:
if MessageDlg('Möchten Sie alle Dateien auf ihrem Computer löschen?', mtWarning, mbYesNo, 0) = mrNo then Exit;
LöscheAlleDateien();
Da ich andere Erfahrungen gemacht habe, habe ich das gerade einfach mal geprüft.
Was du schreibst, stimmt nicht!
Wer das [X] auswählt, bekommt ein mrCancel! Auch in XE2.
Allerdings war ich verblüfft, dass ein ESC ein mrNo liefert. Das ist auch nicht zwangsläufig das korrekte/erwünschte Ergebnis.