NapsTer

Professional

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

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

:rolleyes::rolleyes:
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

Professional

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

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

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

Anonymous

New Member

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

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

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

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

أعلى