كيف يمكن جعل الملف النصي Txt للقراءة فقط برمجياً

 

FileSetAttr[color= #009900;]([color= #0000ff;]'C:[color= #000099; font-weight: bold;]Temp[color= #000099; font-weight: bold;]Test.txt'[color= #339933;], Attributs and not faReadOnly[color= #009900;])[color= #339933;];

faReadOnly :قراء فقط
	FaHidden : مخفي
	faSysFile : ملف نظام
	faVolumeID : ملف قرص
	faDirectory: ملف مجلد
	faArchive : ارشيف
	faAnyFile : عادي او جميع الملفات

تظهر رسالة خطأ

[Warning] Unit1.pas(28): Symbol 'FileSetAttr' is specific to a platform
[Error] Unit1.pas(28): Undeclared identifier: 'Attributs'
[Warning] Unit1.pas(28): Symbol 'faReadOnly' is specific to a platform
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

أخي الكريم أنا جربت و مشي الحال 100%

التابع موجود بالمكتبة SysUtils

أستخدمت التابع على الشكل التالي

procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('c:\aa.txt',faReadOnly);
end;

مشكوورين اخواني .. الكود يعمل بنجاح .... ولكن هنالك مشكلة وهي تنه يمكن لاي شخض تغيير الخاصية من الويندوز .. هل توجد دالة تمنع تغيير خصائص الملف ؟؟

-

-

-

..وبالتوفيق للجميع

اقتباس

يمكن لاي شخض تغيير الخاصية من الويندوز .. هل توجد دالة تمنع تغيير خصائص الملف

- إذا تريد معرفة مثل هذه الحالات يجب أن يكون برنامجك يعمل منذ بدء التشغيل

- وفي Timer : ضع كود كشف عن حالة الملف , إن كان مخفي أو غيره , فإن كانت مثلاً كملف أرشيف , تقوم بتحويلها إلى ملف مخفي مثلاً

انا استعمل عادة اللحقة DLL واضع الملف في windows system باسم مشابه لاحد المكتابات مثلا

attioglx1.dll

tt عوض t

اما الاصح فهو حفض المعلومات في objet ووضعها في ملف وهكدا حت ان فتح لا احد يستطيع فهمه

اقتباس

وفي Timer : ضع كود كشف عن حالة الملف , إن كان مخفي أو غيره , فإن كانت مثلاً كملف أرشيف , تقوم بتحويلها إلى ملف مخفي مثلاً

- هل بعد ذلك يمكن لاي مستخدم نغيير خصائص الملف إلى مخفي مثلاً.

up

ان كنت انت admin اظن انك يمكن منع المستخدمين من الوصول الى الملف برمجيا

اقتباس

ان كنت انت admin اظن انك يمكن منع المستخدمين من الوصول الى الملف برمجيا

هذا هو موضوعنا ... كيف يمكن عمل ذلك

up