Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
02.Ocak.2015, 16:30 #1Pro Üye
- Üyelik tarihi
- 06.Kasım.2014
- Mesajlar
- 405
Delphi'de Kayıtlı Sürücüleri Nasıl Bulurusnuz?
Formunuza 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;
Reklam Alanıdır
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Delphi'de Font Seçimi" Penceresini Ekrana Nasıl Çıkarırsınız?
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 19.Mart.2015, 22:07 -
Delphi'de Silinmis Dosyalar Nasıl Gösterilir?
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 19.Mart.2015, 21:45 -
DELPHI / Sys Menulerinin Çalistirilmasi-Silinmesi Nasıl Olur?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:39 -
Delphi'de Dosya Kopyalama Nasıl Olur?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:36 -
Delphi'de Analog Saat Yapımı Nasıl Olur?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:28
Shopsocks5 - Service Socks5 Cheap...
Bugün, 14:35 in Güvenlik