Mengecek disk pada disk drive

Apabila Anda tidak ingin melihat pesan "A:\ is not accessible. The Device not Ready" saat Anda mengakses disk drive yang kosong (tidak terdapat disket pada disk drive), gunakan kode berikut ini :

procedure TForm1.Button1click(Sender : TObject);
begin
    if not DirectoryExists('a:\') then
      MessageDlg('Disk drive kosong',mtError,[mbOk],0)       else
      {jika disk drive tidak kosong maka ......}
end;

Maka saat user mengakses disk drive yang kosong, akan muncul pesan yg lebih mudah dipahami, yaitu "Disk drive kosong".