+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التقاط اسماء الاقراص القابلة للازالة (/showthread.php?tid=5536)
التقاط اسماء الاقراص القابلة للازالة - MEKKADRA - 09-09-2013
السلام عليكم ورحمة الله وبركاته
كيف التقاط اسماء الاقراص الخارجية ؟ او كيفية اختيار مجلد او مسار وليس ملف فقد جربت open Dialog ولكنها لم تفلح فهي لاختيار الملفات
في الواقع انا بحاجة لطريقة تمكن من اختيار احد الاقراص الخارجية 'الفلاشة) واستخدام اسمها لاتمكن من تطبيق تعليمة دوس تحوي اسم الفلاشة
التقاط اسماء الاقراص القابلة للازالة - cherifplanette - 09-09-2013
استعمل الدالة SelectDirectory من الوحدة FileCtrl وستظهر لك علبة حوارية لتحديد المسار .... تحياتي.
التقاط اسماء الاقراص القابلة للازالة - MEKKADRA - 09-09-2013
السلام عليكم ورحمة الله وبركاته
شكرا مع انني لماجد الوحدة التي ذكرتها ربمالاننياستخدم Delphi7
وجدت هذا ShellComboBox1 في الوحدة Exemples
التقاط اسماء الاقراص القابلة للازالة - SMP3 - 09-09-2013
إقتباس :مع انني لماجد الوحدة التي ذكرتهاالوحدة FileCtrl موجودة في دلفي 7 .
ربمالاننياستخدم Delphi7
التقاط اسماء الاقراص القابلة للازالة - Agmcz - 11-09-2013
السلام عليكم
هذا احد الحلول
كود :
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;