الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف تعرف اذا كان القرص محمي ضد الكتابة ام لا !!! ادخل وشوف (( وخاصه انت يااخ Pati ))

مغلق
بدأه SUM في 4 أكتوبر 2001 · 4 رد · 4,186 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اخوتي الأعزاء

اليكم الطريقه لمعرفت اذا كان القرص محمي ضد الكتابة ام لا

Function Unck(Drive:string):string;
var
First:TStringList;
begin
First:=TStringList.Create;
First.SaveToFile('C:Create');
if CopyFile('C:Create',PChar(Drive+'Create'),false) then begin
Result:='القرص غير محمي من الكتابه';
DeleteFile(Drive+'Create');
end
else
Result:='القرص محمي من الكتابه';
end;
[/Code2]
وطريقة الأستخدام 
هي كتالي 
[Code2]
Label1.caption:=Unck('A:');
[/Code2]
طبعاً انا طرحت الموضوع لأني وجدت الأخ Pati يبحث عنه 
ولكي تستفيدوا انتم منه ايضاً
وتقبلوا اطيب تحياتي اخوكم SUM

      
      

      
    

  

    
    

      
#2
        
        

      
استادي العزيز لم اعرف كيف اعبر عن شكري على كل ماتقدمه لنا 
ارجو ا من الله ان يزيدك علما على علم .
اتعلم اني  عند ما يسألونني هنا بالجزائر من علمك دلفي اقول.....sum  ...

      
      

      
    

  

    
    

      
#3
        
        

      
بسم الله الرحمن الرحيم 
اخي العزيزsum شكرا مرة ثانيه الا انك لم تستعمل دوال API windows كما ظننت .
فالطريقة السابقة تشبه تماما ما عملته :
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignfile(f,'a:pati');
     try
     rewrite(f);  closefile(f);  DeleteFile('a:pati');
     except
     MessageBox( Handle, PChar('القرص محمي من الكتابه'), PChar('خطأ'),MB_OK + MB_ICONerror +  MB_TASKMODAL +  MB_RIGHT + MB_RTLREADING);
     end;
end;
end.
عل العموم وجدت حل مؤقت :
if not deletefile(SearchRec.Name) then
Messagedlg(PChar('القرص محمي من الكتابه'), mtconfirmation  , [MBOK ],0);
حتى اتحصل علي api الازم .
شكرا .

      
      

      
    

  

    
    

      
#4
        
        

      
لدي سؤال إذا سمحتم:
هل يمكن استخدام نفس الكود للتأكد من أن السي دي محمي ضد الكتابة؟

      
      

      
    

  

    
    

      
#5
        
        

      
:)
لا لايمكن طبعا 
كيف يمكن حماية الهارد ضد اكتابة

      
      

      
    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…