delphi4arab منتديات دلفي للعرب

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

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

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

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

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

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

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

كود :
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;

MEKKADRA

cherifplanette

MEKKADRA

SMP3

Agmcz