التقاط اسماء الاقراص القابلة للازالة

[MEKKADRA]

السلام عليكم ورحمة الله وبركاته

كيف التقاط اسماء الاقراص الخارجية ؟ او كيفية اختيار مجلد او مسار وليس ملف فقد جربت open Dialog ولكنها لم تفلح فهي لاختيار الملفات
في الواقع انا بحاجة لطريقة تمكن من اختيار احد الاقراص الخارجية 'الفلاشة) واستخدام اسمها لاتمكن من تطبيق تعليمة دوس تحوي اسم الفلاشة

[cherifplanette]

استعمل الدالة SelectDirectory من الوحدة FileCtrl وستظهر لك علبة حوارية لتحديد المسار .... تحياتي.

[MEKKADRA]

السلام عليكم ورحمة الله وبركاته
شكرا مع انني لماجد الوحدة التي ذكرتها ربمالاننياستخدم Delphi7
وجدت هذا ShellComboBox1 في الوحدة Exemples

[SMP3]

مع انني لماجد الوحدة التي ذكرتها
ربمالاننياستخدم Delphi7

الوحدة FileCtrl موجودة في دلفي 7 .

[Agmcz]

السلام عليكم
هذا احد الحلول

كود :

procedure GetDriveUSB(DriveList: TStrings); var Root: Char; begin for Root := 'A' to 'Z' do begin if GetDriveType(PChar(Root + ':\')) = DRIVE_REMOVABLE then begin if DirectoryExists(Root + ':\') then begin DriveList.Add(Root + ':\'); end; end; Application.ProcessMessages; end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetDriveUSB(Memo1.Lines); end;