Delphi - Van-e lemez a floppymeghajtóban?

forráskód letöltése
Mielőtt programunk írna egy floppylemezre, célszerű megvizsgálni, hogy a felhasználó tett-e már lemezt a meghajtóba, vagy sem. Ha még nem tett volna, akkor saját üzenet ablakunkkal figyelmeztethetjük erre, méghozzá oly módon, hogy nem fog megjelenni a Windows szokásos rendszerhiba üzenet ablaka. Mielőtt programunk írna egy floppylemezre, célszerű megvizsgálni, hogy a felhasználó tett-e már lemezt a meghajtóba, vagy sem. Ha még nem tett volna, akkor saját üzenet ablakunkkal figyelmeztethetjük erre, méghozzá oly módon, hogy nem fog megjelenni a Windows szokásos rendszerhiba üzenet ablaka.

Ehhez első lépésként le kell tiltanunk a SetErrorMode függvénnyel, hogy a Windows ne jelenítsen meg hibaüzenetet, majd megpróbáljuk megváltoztatni az aktuális könyvtárat az a: meghajtóra. Ha ez sikerül, akkor nyilván már van lemez a meghajtóban, különben nincs.

Végső lépésként pedig illik visszaállítani az eredeti aktuális könyvtárat, illetve az eredeti hibakezelési módot.