DirectoryExists Laufwerk vorhanden aber kein Datenträger

[Christian Seehase]

Moin Zusammen,

ich würde dem Ganzen aber noch einen try/finally-Block spendieren, denn der ErrorMode gilt für die gesamte Prozesslaufzeit, und alle Child-Prozesse.
Da könnte es ungünstig sein, wenn durch einen Fehler bestimmte Meldungen dauerhauft unterdrückt werden würden.

Delphi-Quellcode:

var ErrMode: Cardinal;
begin
  ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DirectoryExists('K:\test') then
      ShowMessage('Verz. vorhanden!')
    else
     ShowMessage('Verz. nicht vorhanden!');
  finally
    SetErrorMode(ErrMode);
  end;
end;