DirectoryExists Laufwerk vorhanden aber kein Datenträger

[TUX_der_Pinguin]

In meinem Programm wird mit "DirectoryExists()" geprüft ob ein Verzeichnis vorhanden ist,
jedoch trat ein Fehler auf mit einer Meldung das kein Datenträger im Laufwerk vorhanden sei.
Es standen 3 optionen zur Auswahl "Abbrechen", "Wiederholen" und "Weiter" danach lief das
Programm auch normal weiter.

Wie bekomme ich das hin das keine Meldung auftaucht, bei dem Laufwek handelt es sich um
einen Kartenleser wo keine Speicherkarte eingelegt war.

Delphi-Quellcode:

if DirectoryExists('K:\test') then 
  ShowMessage('Verz. vorhanden!')
else
  ShowMessage('Verz. nicht vorhanden!');

[taaktaak]

Moin, Moin.
Ich glaub' mit

Delphi-Quellcode:

SetErrorMode(SEM_FAILCRITICALERRORS)

kann man die Systemfehlermeldungen ausschalten.

[DeddyH]

Genau, und anschließend wiederherstellen. Das sähe dann so aus:

Delphi-Quellcode:

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

[TUX_der_Pinguin]

Vielen dank, das ging mal flott ;-)

[taaktaak]

Tja, so ist das eben bei der DP
:wink:

[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;

[AlexII]

...