|
|
|||||||
| Programlama C/C++ ,Delphi ,Visual Basic ve diğer programlama dilleri ile ilgili her konuda tartışabilirsiniz. |
 |
|
|
LinkBack | Konu Seçenekleri | Modları Göster |
04-12-2007, 19:10
|
#1 (permalink) |
 
|
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; |
|
    
|
|
| Konu Seçenekleri | |
| Modları Göster | |
|
|
Okuduğunuz Konuya Benzer Konular
|
||||
| Konu | Konuyu Açan | Forum | Cevaplar | Son Mesaj |
| hotmaile kayıtlı tüm adresleri bulma | R-oo-y`Land*~ | Çöp Forum | 22 | 07-10-2008 15:34 |
| Istakoz'un Müthiş Bir Yön Bulma Kabiliyeti | darkerhan | Çöp Forum | 3 | 17-05-2008 18:25 |
| Tüm Markaların Driver Linkleri | ..::JaNeR::.. | Güncel Driver , Firmware ,BIOS | 11 | 06-03-2008 21:31 |
| FenerbahÇemİzİn Şampİyonluk Tarİhİ( 1959'dan itibaren) | ÇΛLIΥΛΚΛLI | Futbol Bölümü | 3 | 09-12-2007 14:19 |
| Telefon Numarasının Kimin Adına Kayıtlı Olduğunu Görün... | KORİDOR | Çöp Forum | 7 | 20-07-2007 22:48 |
Normal Mod
