|
Delphi / Delphide Kayıtlı Sürücüleri Bulma
Delphide Kayıtlı Sürücüleri Bulma
|
 |
Yazar: FERDIKUCUK
Eklenme:
27/03/08
Okunma:
50 |
|
|
| |
| |
|
Delphide Kayıtlı Sürücüleri Bulma
Forma Memo, Buton ve Birde Label Ekleyin..
Kod Çizelgesi Kod Dili: php
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;
|
| |
|
|
Istatistikler ,
Sitemizde su anda 30 kategori, 377 makale , 104 görsel ders ve 2 Ziyaretci bulunmaktadir...
Toplam üye sayimiz : 496 |
|
 |
|
Copyright © 2007 Programlamadili.net - Programlama & Tasarim: Recep Ikiz & Ferdi Küçük
"Ne Aradığını Bilmeyen Bulduğunun Farkına Varamaz "
|
ACPI Programlama dili,
Action Script Programlama dili,
ASP Programlama dili,
ASP.NET Programlama dili,
Assembly Programlama dili,
Bash Programlama dili,
C Programlama dili,
C# Programlama dili,
C++ Programlama dili,
Cobol Programlama dili,
Delphi Programlama dili,
Flash Programlama dili,
Html Programlama dili,
JAVA Programlama dili,
Java Script Programlama dili,
JSF Programlama dili,
Jsp Programlama dili,
Lua Programlama dili,
Matlab Programlama dili,
MySQL Programlama dili,
Oracle Programlama dili,
Pascal Programlama dili,
Perl Programlama dili,
Photoshop Programlama dili,
PHP Programlama dili,
Python Programlama dili,
REXX Programlama dili,
Ruby Programlama dili,
SEO Programlama dili,
Visual Basic Programlama dili, |
| Reklam alanı |
|
