دخول

05-10-2012, 07:45 PM

بعد البحث وجدت لك كود يقوم بسرد جميع الاقراص الموجودة لعله يفيدك بشيء وما زال البحث جاريا

كود :
procedure GetDriveLetters(AList: TStrings);
var
  vDrivesSize: Cardinal;
  vDrives       : array[0..128] of Char;
  vDrive         : PChar;
begin
  AList.BeginUpdate;
  try
        // clear the list from possible leftover from prior operations
        AList.Clear;
        vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
        if vDrivesSize=0 then Exit; // no drive found, no further processing needed

        vDrive := vDrives;
        while vDrive^ <> #0 do
        begin
          AList.Add(StrPas(vDrive));
          Inc(vDrive, SizeOf(vDrive));
        end;
  finally
        AList.EndUpdate;
  end;
end;

أضف ListBox إلى الفورم ومن ثم نقر مزدوج على الفورم نفسه واكتب هذا الأمر

كود :
GetDriveLetters(ListBox1.Items)

وجدت لك الكود دون الحصول على اسم الـ Usb
لا تنسى وضع Memo + Button على الفورم

كود :
Function RemovableDrive(Drive: char): Boolean;
begin
  Result := (Windows.GetDriveType(PChar(Drive + ':\')) = Windows.Drive_Removable);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Drive: Char;
begin
  for Drive := 'A' to 'Z' do
  begin
    if BoolToStr(RemovableDrive(Drive), TRUE) <> 'False' then
       Memo1.Lines.Add('Drive: ' + Drive);
  end;
end;

صورة

كود :
http://im15.gulfup.com/MvgF1.jpg

بالتوفيق أخي الكريم Smile

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة