إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

[NapsTer]

السلام عليكم ورحمة الله وبركاته .. :SnipeR (90):

نبدأ اخواني اليوم بهذا الكود لانشاء مستند نصي وتغيير خضائصه كاملة ,

function filesetattr ( const filename : String; attributes : Integer; ) : Integer;

var
filename : String;
myfile : Textfile;

attrs : Integer;

begin
// فتح المستند
filename := 'atestfile.txt';
assignfile(myfile, filename);
rewrite(myfile);

// كتابة جلمة محددة الى المستند
write(myfile, 'hello world');

// اغلاقه
closefile(myfile);

// تغيير خصائصه الى للقراءة فقط
if filesetattr(filename, fareadonly or fasysfile) > 0
then showmessage('file made into a read only system file')
else showmessage('file attribute change failed');

// الحصول على خصائص الملف
attrs := filegetattr(filename);

// عرض الخصائص الحالية برسالة
if attrs and fareadonly > 0
then showmessage('file is read only')
else showmessage('file is not read only');

if attrs and fahidden > 0
then showmessage('file is hidden')
else showmessage('file is not hidden');

if attrs and fasysfile > 0
then showmessage('file is a system file')
else showmessage('file is not a system file');

if attrs and favolumeid > 0
then showmessage('file is a volume id')
else showmessage('file is not a volume id');

if attrs and fadirectory > 0
then showmessage('file is a directory')
else showmessage('file is not a directory');

if attrs and faarchive > 0
then showmessage('file is archived')
else showmessage('file is not archived');

if attrs and fasymlink > 0
then showmessage('file is a symbolic link')
else showmessage('file is not a symbolic link');
end;

أتمنى ان يكون الشرح مفهوم واي نقطة انا جاهز اوضحها .. ~:SnipeR (75):

 

[MhWy]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

الله يعطيك العـافيةة ي خوي ..
موضوع توب
تقبل مروري ..​

ايهه صح اول رد محجوز

 

[Anonymous]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

رااااااااااااااااااائع راااااااااااائع

ابدااااع وربي ابدااااع

لا تحرمنا من ابداعك
ننتظر جديدك ..​

 

[Viřŭs ɱŝf]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

موضوع رائع يا دب واصل
​

 

[Mr Pascal]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

لا تحرمنا من ابداعك
:SnipeR (73)::SnipeR (73):

 

[عقاد]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

يسلمووووووو اكثير
​

 

[جـــــــدو]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

يعطيك آلعافية يابطل
لا تحرمنه من مواضيعك الرائعه

 

[GENERAL AMERICA]

رد: إنشاء ملف نصي، وجعله للقراءة فقط ومخفي وعرض خصائصه

موضوع رائع مشكور حبيبي سلمت يمينك ^_^
​