Cara Mengetahui Drive Yang Terdapat Pada Komputer Menggunakan Delphi

DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Untuk mengetahui drive yang terdapat pada sistem anda dapat menggunakan salah satu fungsi windows API, yaitu GetLogicalDrives. Fungsi ini  tidak membutuhkan parameter. Jika hasil, function GetLogicalDrives akan mengembalikan bitmask yang memrepsentasikan drive yang ada . posisi bit 0 adalah drive A, posisi bit 1 adalah drive B,  posisi bit 2 adalah drive C dan seterusnya. Sebaliknya jika gagal fungsi GetLogicalDrives akan mengembalikan nilai 0 (nol). Untuk membuat programnya ikuti langkah 2 berikut :

1. Buka Delphi
2. Buat project baru
3. Tambahkan TButton dan TMemo kedalam project
4. Klik dua kali pada TButton1 dan masukan kode dibawah ini   :
   
   var
   id : DWORD;
   i :  Integer;
   begin
    id := GetLogicalDrives;
    for i := 0 to 25 do
       begin
        if (id and (1 shl i)) <> 0 then //menambahakan drive yang ditemukan pada memo1
        Memo1.Lines.Add(char(ORD('A')+i)+':\');
       end;
   end;
5. Tekan tombol F9/Compile
6. Selesai, selamat mencoba

Cara Mengetahui Drive Yang Terdapat Pada Komputer Menggunakan Delphi 2014-08-22T02:19:00-07:00 Rating: 4.5 Diposkan Oleh: Abu Masail