Anasayfa > Kodlar > Delphi ile kayıtlı sürücüleri bulmak

Delphi ile kayıtlı sürücüleri bulmak

Delphide Kayıtlı Sürücüleri Bulma

Forma  Memo, Buton ve Birde Label Ekleyin..

procedure TForm1.Button1Click(Sender: TObject);
var
Drive: Char;
DriveLetter: String[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType (PChar(Drive + ':\') ) of
DRIVE_REMOVABLE:
Memo1.Lines.Add (DriveLetter + ' Floppy sürücü');
DRIVE_FIXED:
Memo1.Lines. Add(DriveLetter + ' Sabit sürücü');
DRIVE_REMOTE:
Memo1.Lines .Add(DriveLetter + ' Ağ sürücü');
DRIVE_CDROM:
Memo1. Lines.Add(DriveLetter + ' CD-ROM sürücü' );
DRIVE_RAMDISK:
Memo1.Lines.Add(DriveLetter + ' RAM Disk' );
end;
end;
label1.Caption :=IntToStr(memo1.Lines.Count)+ ' adet sürücü bulundu';
end;

CKRAL

Codder71@hotmail.com


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: