طلب طريقة اخفاء محتويات التجميعة

[محمد بن أحمد أبو حذيفة]

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

السلام عليكم

هل ممكن كود لاخفاء محتويات التجميعة بحيث يبقى فقط الملف التنفيذي

ويمكن للمستخدم ان يظهرها من خلال التعديل على خيارات الونداوز واظهار الملفات المخفية

[ياسرهتهت]

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

كل عام وانت بخير اخي الكريم

تابع هذا الموضوع


http://www.abc4web.net/vb/showthread.php?t=13191

موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود]

أو أن تستخدم الكود التالى :

File.SetAttributes

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
اين يوضع الكود
بارك الله فيك

[عبود عبود]

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

مثلا لدى صورة أو ملف فى مجلد الدوكس بالمشروع وكان إسمه على سبيل المثال : Pleasant.png

فيكون الكود كالتالى :

File.SetAttributes("AutoPlay\\Docs\\Pleasant.png", {System=true,Hidden=true});

أين أضع الكود ؟ فى زر أو فى أى حدث من أحداث المشروع كـــ On StartUp أو فى أى حدث من أحداث الصفحة كــ On Preload أو On Show أو أى مكان ........ فأنت من تحدد .


المهم بعدما تضع الكود وتعاين مشروع توجه إلى المشروع وافتح المجلد المحتوى على الملف المذكور أعلاه سوف تجد الملف غير ظاهر أمامك .


ملف مفتوح لإخفاء أو إعادة إظهار ملف (https://www.mediafire.com/?l2bdt11q6o7be3e)

:abc_152:

[الاغواط]

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

مثلا لدى صورة أو ملف فى مجلد الدوكس بالمشروع وكان إسمه على سبيل المثال : Pleasant.png

فيكون الكود كالتالى :

File.SetAttributes("AutoPlay\\Docs\\Pleasant.png", {System=true,Hidden=true});

أين أضع الكود ؟ فى زر أو فى أى حدث من أحداث المشروع كـــ On StartUp أو فى أى حدث من أحداث الصفحة كــ On Preload أو On Show أو أى مكان ........ فأنت من تحدد .


المهم بعدما تضع الكود وتعاين مشروع توجه إلى المشروع وافتح المجلد المحتوى على الملف المذكور أعلاه سوف تجد الملف غير ظاهر أمامك .


المحتوى المخفي لايقتبس

:abc_152:

بارك الله فيك اخي عبود انا لديا خلفية المشروع كيف اخفيها وشكرا :abc_139:

[محمد بن أحمد أبو حذيفة]

بارك الله فيك اخي عبود

لكن مااريده

هو ان تظهر ايقونة التجميعة فقط واذا اراد المستحدم اظهارها يظهرها من خاصية اظهر الملفات المخفية

[ثامر أبو بلقيس]

تقبل هذا المــــرور

معادلة إخفاء مجلد AutoPlay فقط و ترك الباقي

في on show
attributes = File.GetAttributes(_SourceFolder.."\\AutoPlay");
attributes.Hidden = true;
attributes.System = false;
File.SetAttributes(_SourceFolder.."\\AutoPlay", attributes);

موفق:abc_023:

واذا أراد الإظهار أترك له الاختيار من داخل التجميعية بزر
attributes = File.GetAttributes(_SourceFolder.."\\AutoPlay");
attributes.Hidden = false;
attributes.System = false;
File.SetAttributes(_SourceFolder.."\\AutoPlay", attributes);

[محمد بن أحمد أبو حذيفة]

تقبل هذا المــــرور

معادلة إخفاء مجلد autoplay فقط و ترك الباقي

في on show
attributes = file.getattributes(_sourcefolder.."\\autoplay");
attributes.hidden = true;
attributes.system = false;
file.setattributes(_sourcefolder.."\\autoplay", attributes);

موفق:abc_023:

واذا أراد الإظهار أترك له الاختيار من داخل التجميعية بزر
attributes = file.getattributes(_sourcefolder.."\\autoplay");
attributes.hidden = false;
attributes.system = false;
file.setattributes(_sourcefolder.."\\autoplay", attributes);




بارك الله فيك

لكن الكود الاول فيه خطا

[ثامر أبو بلقيس]

لايوجد خطأ

[عبود عبود]

لإخفاء مجلد الأتوبلاى بالكامل :

--
result = File.Find(_SourceFolder, "*.*", false, true, nil, nil);
if result~=nil then
for i,s in pairs(result)do
File.SetAttributes(s, {System=true,Hidden=true});
end
end


:abc_065:

[عبود عبود]

وإذا كنت تريد إخفاء جميع محتويات المشروع فيما عدا الملف التنفيذي يكون الكود كالتالى :

--
result = File.Find(_SourceFolder, "*.*", false, true, nil, nil);
if result~=nil then
for i,s in pairs(result)do
if String.SplitPath(s).Filename..".exe"~=_SourceFilename then
File.SetAttributes(s, {System=true,Hidden=true});
end
end
end


:abc_065:

[عبود عبود]

بما سبق يمكنك إستثناء أى ملفات بالتعديل فى الشرط if

:abc_152:

بالتوفيق

[محمد بن أحمد أبو حذيفة]

بارك الله فيكم جميعا

[ثامر أبو بلقيس]

مــــــــــــــــــــــــ ـــــوفق :abc_138:

[محمد بن أحمد أبو حذيفة]

بارك الله فيك اكتفي بهذا

الا اذا اراد الاعضاء الاستزاد فلا مانع من ان تمتعنا

[ثامر أبو بلقيس]

تم ذلك موفق

[محمد سامر]

مشكووووووووووووووووو اخي جزاك الله خيرا