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”.
Artikel Lainnya
- Menyembunyikan Icon Pada Desktop ShareContoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan icon pada desktop melalui program yang dibuat dengan Delphi. Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat...
- Menjalankan Applet Pada Control Panel ShareUntuk menjalankan berbagai applet pada control panel, Anda dapat menggunakan salah satu fungsi dari Windows API yaitu WinExec. function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer; Lihat keterangan...
- Menjalankan Aplikasi Windows Lainnya ShareUntuk menjalankan aplikasi Windows lainnya dari program Anda, Anda bisa menggunakan salah satu fungsi Windows API, yaitu WinExec. Adapun deklarasi dari fungsi WinExec adalah sebagai berikut : function WinExec (lpCmdLine...
saya mhon bantuan pabila ada informasi terbaru agar ada