+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع فلاش ديسك usb (/showthread.php?tid=1742)
التعامل مع فلاش ديسك usb - abdelmalek - 04-03-2010
السلام عليكم ورحمة الله وبركاته
ا احب أن اجعل برنامج يأخدد ملفات معينة من القرص الصلب تم يضعها في فلاش ديسك وهدا لاخد نسخة احطياطية لملفات مهمة
الأسئلة :
1- كيف يمكنني معرفة إسم الفلاش ديسك هل هو e او g او f او.
2- كيف اعرف هل هدا فلاش ديسك ام قرص صلب
3- هل استطيع نقل البيانات من القرص الصلب الى فلاش ديسك محدد اي ليس ايي فلاش ديسك اقوم بادخله ( كما نعلم ان لكل فلاش ديسك إسم يميزه )
السلام عليكم ورحمة الله وبركاته
التعامل مع فلاش ديسك usb - kachwahed - 04-03-2010
وعليكم السلام ورحمة الله وبركاته
ليس بالدقة الكافية لكن يمكن التعديل عليها:
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
typ: Integer;
s: string;
begin
s := 'C:\';
typ := GetDriveType(PChar(s));
if Typ <> 0 then case typ of
DRIVE_REMOVABLE:
begin
ShowMessage('Drive Removable / Diskette');
end;
DRIVE_FIXED:
begin
ShowMessage('Drive fixed');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive');
end;
end;
end;