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

السلام عليكم ورحمة الله وبركاته
ا احب أن اجعل برنامج يأخدد ملفات معينة من القرص الصلب تم يضعها في فلاش ديسك وهدا لاخد نسخة احطياطية لملفات مهمة

الأسئلة :
1- كيف يمكنني معرفة إسم الفلاش ديسك هل هو e او g او f او.
2- كيف اعرف هل هدا فلاش ديسك ام قرص صلب
3- هل استطيع نقل البيانات من القرص الصلب الى فلاش ديسك محدد اي ليس ايي فلاش ديسك اقوم بادخله ( كما نعلم ان لكل فلاش ديسك إسم يميزه )

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

وعليكم السلام ورحمة الله وبركاته
ليس بالدقة الكافية لكن يمكن التعديل عليها:

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; 

بالتوفيق.

abdelmalek

kachwahed