Bilgisayardaki Sürücü Listesini Almak

Yazan:
4 Ekim 2010
Reklam Alanı

procedure TForm1.Button1Click(Sender: TObject);
var
ld : DWORD;
i : integer;
begin
memo1.clear;
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then Memo1.Lines.Add(Char(Ord(‘A’) + i) + ‘:\’);
end;
end;

Benzer Yazılar:

  1. Tüm Dosya ve Klasörlerin Listesini Almak
  2. Ekran Klavyesi
  3. Delphi ile Mp3 dosya çalmak çaldırmak
  4. Önlem almak
  5. Çalınan MSN Adresini Geri almak
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası