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".
back to tutorial delphi home....
Tidak ada komentar:
Posting Komentar