feststellen ob eine diskette im laufwerk ist

[markus lemcke]

hallo,

wie kann ich feststellen ob éine diskette im laufwerk ist?

mfg

markus

[Andreas Kosch]

Hallo Markus,

mit dem Aufruf von <b>SetErrorMode(SEM_FAILCRITICALERRORS)</b> kann man die normale Win32-Fehleranzeige in derartigen Fällen kurzzeitig abschalten. Das folgende Beispiel demonstriert das Prinzip:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
dwOldErrMode : DWORD;
dwReturn : DWORD;
aSR : TSearchRec;
begin
dwOldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
try
dwReturn := FindFirst('A:\*.*', faAnyfile, aSR);
case Abs(dwReturn) of
0 : FindClose(aSR);
3, 21 : ShowMessage('Keine Diskette im Laufwerk');
end;
except
ShowMessage('Fehler');
end;
finally
SetErrorMode(dwOldErrMode);
end;
end;
</pre>
In der Hilfe zum <i>Microsoft Platform SDK</i> oder auf den CDROM der <i>MSDN Library</i> sind die ganzen Details inklusiver der Beschreibungen der Fehler-Rückgabewerte zu finden, so dass man auch noch zwischen einer leeren und teilweise gefüllten Diskette unterscheiden kann.
&#10

[markus lemcke]

die standardfehlermeldug kommt dann nicht mehr???

mfg

marku

[Andreas Kosch]

Nein - es ist nur die eigene MessageBox "Keine Diskette im Laufwerk" für den Benutzer sichtbar

[markus lemcke]

sehr gut!!!
danke!