كاشف USB Drive‏ - نسخة قابلة للطباعة

بسم الله الرحمن الرحيم

يوم بعد يوم نتقدم باللغه
أنصح كل مبتدأ بالدوره

دورة دروس دلفي للعرب

اليوم نستعرض برنامج صغير يقوم بكشف اذا كان يو أس بي متواجد بنظام

كود :
procedure TForm1.Button1Click(Sender: TObject);

var Flash : Char ;

begin

for Flash := 'A' To 'Z' do

if GetDriveType(Pchar(Flash + ':\')) = 2 Then

  Memo1.Lines.Add(Flash + ':\');

end;

end.

هنا الكود

بتقدر تغير بدل

if GetDriveType(Pchar(Flash + ':\')) = 2 Then

تجعها

if GetDriveType(Pchar(Flash + ':\')) = 3 Then
او

if GetDriveType(Pchar(Flash + ':\')) = 4 Then

علي حسب المراد
أستكشاف الدريافات كلها
أسكتشاف السي دي روم وما الي ذلك

كود :
DRIVE_UNKNOWN = 0;

  {$EXTERNALSYM DRIVE_UNKNOWN}

  DRIVE_NO_ROOT_DIR = 1;

  {$EXTERNALSYM DRIVE_NO_ROOT_DIR}

  DRIVE_REMOVABLE = 2;

  {$EXTERNALSYM DRIVE_REMOVABLE}

  DRIVE_FIXED = 3;

  {$EXTERNALSYM DRIVE_FIXED}

  DRIVE_REMOTE = 4;

  {$EXTERNALSYM DRIVE_REMOTE}

  DRIVE_CDROM = 5;

  {$EXTERNALSYM DRIVE_CDROM}

  DRIVE_RAMDISK = 6;

  {$EXTERNALSYM DRIVE_RAMDISK}

تقدر أن تستخدمهم كلهم ب

CASE OF

مثال

كود :
procedure TForm1.Button1Click(Sender: TObject);

var Flash : Char ;

begin

for Flash := 'A' To 'Z' do

begin

case GetDriveType(Pchar(Flash + ':\')) of

  DRIVE_REMOVABLE :

  Memo1.Lines.Add(Flash + ':\');

  DRIVE_FIXED :

  Memo1.Lines.Add(Flash + ':\');

end;

end;

end;

end.

**** أن يكون الشرح واضح