ماذا يعني هذا الامر ( File.SetPermissions )

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
عندي سؤلين الاول
ممكن توضيح هذا الامر ( File.SetPermissions )
-------
السؤال الثاني
عندي تجمعتان ( تجميعة رقم 1) و(تجمبعة رقم 2)
في (التجميعة رقم 1 ) يوجد زر يقوم بتشغيل( التجميعة رقم2 )
وعمل ( تصغير Minimize للتجميعة رقم 1)
ماهو الكود الذي اضعة في زر عند اغلاق (التجميعة 2)
يعمل ( تكبير / استعادة Restore لتجميعة رقم 1 )
شـكــ وبارك الله فيك ـــرا لكم
لكم مني أجمل تحية .

[فرح صالحي]

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

[عبود عبود]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
عندي سؤلين الاول
ممكن توضيح هذا الامر ( File.SetPermissions )
-------
السؤال الثاني
عندي تجمعتان ( تجميعة رقم 1) و(تجمبعة رقم 2)
في (التجميعة رقم 1 ) يوجد زر يقوم بتشغيل( التجميعة رقم2 )
وعمل ( تصغير Minimize للتجميعة رقم 1)
ماهو الكود الذي اضعة في زر عند اغلاق (التجميعة 2)
يعمل ( تكبير / استعادة Restore لتجميعة رقم 1 )
شـكــ وبارك الله فيك ـــرا لكم
لكم مني أجمل تحية .


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

File.SetPermissions يعطى بعض الميزات أو الأوزونات لملف أو فولدر كإمكانية الإخفاء كما فى ملفات النظام أو القراءة فقط أو .......

أما عن سؤالك الثانى فـــ ضع فى فى أحداث الصفحة "On Show" على سبيل المثال مؤقت :

Page.StartTimer(200);

وضع فى أحداث الصفحة "On Timer" على سبيل المثال الكود التالى :

if System.IsKeyDown(18)then
Window.Restore(Application.GetWndHandle());
end

شرطا الغرض منه فى حالة الضغط على الزر آلت "alt" من لوحة المفاتيح يتم إستعادة نافذة البرنامج المصغر "Minimizes"

:abc_152:

[ياسرهتهت]

أما عن سؤالك الثانى فـــ ضع فى فى أحداث الصفحة "On Show" على سبيل المثال مؤقت :

Page.StartTimer(200);

وضع فى أحداث الصفحة "On Timer" على سبيل المثال الكود التالى :

if System.IsKeyDown(18)then
Window.Restore(Application.GetWndHandle());
end

شرطا الغرض منه فى حالة الضغط على الزر آلت "alt" من لوحة المفاتيح يتم إستعادة نافذة البرنامج المصغر "Minimizes"

:abc_152:[/QUOTE]

-----------------------------------------------


بسم الله الرحمن الرحيم
شكرا لك استاذ عبود
وبارك الله فيك
وصلت معلومة Permissions

-----
اما سؤالي الثاني
فانا ابحث عن كود ادرجة في زر اغلق التجميعة رقم 2
يعمل عملية استعادة Restore لتجميعة رقم 1

هل هذا ممكن او متاح ؟

شـكــ وبارك الله فيك ـــرا لك
لك مني أجمل تحية .

[عبود عبود]

اما سؤالي الثاني
فانا ابحث عن كود ادرجة في زر اغلق التجميعة رقم 2
يعمل عملية استعادة Restore لتجميعة رقم 1

هل هذا ممكن او متاح ؟

لك مني أجمل تحية .

نعم

أكتب كود يعمل على إيجاد المقبض للتجميعة رقم 1 على سبيل المثال عندما يبدأ التطبيق فى العمل "On StartUp" ثم يسجل هذا المقبض الذى سيكون عبارة عن رقم فى ملف نصى على سبيل المثال

وفى التجميعة 2 عند الإغلاق أكتب كودا يعمل على قراءة الملف النصى السابق من مساره السابق وبالتالى فإن نتيجة القراءة هى رقم المقبض أليس كذلك ؟
أكتب الكود السابق لإستعادة النافذة Window.Restore(رقم المقبض هنا);


هيا أخى إعتبره تمرين أو سوف أدرج لك ملف مفتوح للعمل أيهما تختار :abc_138:

[ياسرهتهت]

نعتبره تمرين
فقط ما هو الكود المسئول عن ايجاد المقبض؟

[عبود عبود]

result = Application.GetWndHandle();
TextFile.WriteFromString(_DesktopFolder.."\\MyFile.txt", result, false);


هذا هو الجزء الأول الذى سيوضع فى البرنامج المراد إسترجاع نافذته فى الحدث "On StartUp" http://amsspecialist.com/images/smilies/-800.gif

طبعا يمكنك تغيير المسار كيفما تريد .

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

هل يمكن المشاركة في التمرين بطريقة مختلفة ؟

[ياسرهتهت]

وفي التجميعة 2 يكون الكود
RS = TextFile.ReadToString(_DesktopFolder.."\\MyFile.txt );
Window.Restore(RS);


:abc_050:
تمام استاذ عبود

[عبود عبود]

هل يمكن المشاركة في التمرين بطريقة مختلفة ؟

بالطبع أخى الحبيب ليستفيد الآخرون ولكن تمهل قليلا لنرى الأستاذ ياسر هل وصل أم لا

[عبود عبود]

وفي التجميعة 2 يكون الكود
RS = TextFile.ReadToString(_DesktopFolder.."\\MyFile.txt", result, false);
Window.Restore(RS);


:abc_050:
تمام استاذ عبود


إذن تفضل أخى الحبيب ثامر :abc_138:

[ياسرهتهت]

هل يمكن المشاركة في التمرين بطريقة مختلفة ؟

تفضل استاذنا الكريم
مشاركتك في أي موضوع قيمة في حد ذاتها
:abc_138::abc_138::abc_138:

[عبود عبود]

وفي التجميعة 2 يكون الكود
RS = TextFile.ReadToString(_DesktopFolder.."\\MyFile.txt", result, false);
Window.Restore(RS);


:abc_050:
تمام استاذ عبود


؟؟؟؟؟؟؟؟؟؟؟؟؟
إزاى يا جدعان http://i.imgur.com/C0iAGV0.png الكود سيكون كالتالى :

RS = TextFile.ReadToString(_DesktopFolder.."\\MyFile.txt");
Window.Restore(RS);

[ياسرهتهت]

هل يمكن المشاركة في التمرين بطريقة مختلفة ؟

؟؟؟؟؟؟؟؟؟؟؟؟؟ إزاى يا جدعان الكود سيكون كالتالى :

RS = TextFile.ReadToString(_DesktopFolder.."\\MyFile.txt");
Window.Restore(RS);

--------------------------------------------------------------
:abc_102:
خطأ مطبعي علي صفحة النت
بسبب السرعة
اما التطبيق كان كما تفضلت
:abc_026::abc_026:

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

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

التجميعية الثانية منجزة و لم ندرج فيها أي أكواد فقط نعرف
عنوان نافذتها
و ليكن مثلا : My Project
جيد
التجميعية الأولى هي التي نزرع فيها الأكواد كالتالي :
01 - في on show
Page.StartTimer(500);


02 - في on timer
AllWindows = Window.EnumerateTitles(true);
hActiveWnd = DLL.CallFunction(_SystemFolder .. "\\user32.dll", "GetForegroundWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
for CurrentHandle, title in pairs(AllWindows) do
if (CurrentHandle == hActiveWnd) and title ~="My Project" then
Application.Restore();
end
end

و لاحظ أن هذا الكود مهم جدا للتحكم في كل النوافذ المفتوحة و لاحظ اسم تجميعيتنا الثانية مدرج

03 - ضع زر أكتب فيه
Application.Minimize();
File.Run("AutoPlay\\Docs\\2.exe", "", "", SW_SHOWNORMAL, false);


على أساس أن السطر الثاني هو مسار التجميعية الثانية و ليس عنوانها الذي تعاملنا معه
في الكود السابق

جرب الان :abc_138:

[عبود عبود]

جميل جدا " رد إحترافى بعد الرد البسيط السابق " والأجمل أن يستفيد المتابعون منه

شكرا أخى :abc_152:

[ياسرهتهت]

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

التجميعية الثانية منجزة و لم ندرج فيها أي أكواد فقط نعرف
عنوان نافذتها
و ليكن مثلا : My Project
جيد
التجميعية الأولى هي التي نزرع فيها الأكواد كالتالي :
01 - في on show
Page.StartTimer(500);


02 - في on timer
AllWindows = Window.EnumerateTitles(true);
hActiveWnd = DLL.CallFunction(_SystemFolder .. "\\user32.dll", "GetForegroundWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
for CurrentHandle, title in pairs(AllWindows) do
if (CurrentHandle == hActiveWnd) and title ~="My Project" then
Application.Restore();
end
end

و لاحظ أن هذا الكود مهم جدا للتحكم في كل النوافذ المفتوحة و لاحظ اسم تجميعيتنا الثانية مدرج

03 - ضع زر أكتب فيه
Application.Minimize();
File.Run("AutoPlay\\Docs\\2.exe", "", "", SW_SHOWNORMAL, false);


على أساس أن السطر الثاني هو مسار التجميعية الثانية و ليس عنوانها الذي تعاملنا معه
في الكود السابق

جرب الان :abc_138:

------------------------------------------------


بسم الله الرحمن الرحيم
بارك الله فيك
استاذنا الكريم
تم التطبيق بنجاح

:abc_138::abc_138::abc_138:

[ياسرهتهت]

استاذ ثامر
في بعض الاحيان
بعد تكرار العملية اكثر من مرة
تصبح التجميعة رقم 1 تعمل Restore
بعد تشغيل التجميعة رقم 2 بثواني
أي قبل اغلاقها
اين الخلل

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

السلام عليكم ورحمة الله وبركاته
ربما لاحظت عند الضغط على أي برنامج أو نافذة أخرى يتزامن
تواجد التجميعيتان معا
لمعالجة ذلك في on timer
windows = Window.EnumerateTitles();
window_name = "My Project";
AllWindows = Window.EnumerateTitles(true);
hActiveWnd = DLL.CallFunction(_SystemFolder .. "\\user32.dll", "GetForegroundWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
for CurrentHandle, title in pairs(AllWindows) do
if (CurrentHandle == hActiveWnd) and title ~="My Project" then
for handle, title in pairs(windows) do
result = String.Find(title, window_name, 1, false);
if (result ~= -1) then
Window.Close(handle, CLOSEWND_SENDMESSAGE);
end
end
Application.Restore();
end
end

طبعا كل هذا الكلام للإثراء مادامت هناك حلول

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

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

موفق :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
شـكــ وبارك الله فيك ـــرا لك
استاذنا الفاضل
لك مني أجمل تحية .

[امل الماضي]

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