الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لحماية جهازك المهم موضوع جديد

مغلق
بدأه زكيري عبد العالي في 23 يوليو 2001 · 5 رد · 733 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كما و عدت نفسي ان اقدم لاخوتي كل يوم كود جديدا لعلي اربح رضى الله ورضاكم وفقني الله واياكم

بعد ان قدمت سابقا

كود يسمح بمنع قائمة Ctrl+Alt+delete من الضهور

واليوم

1-كود يسمح باخفاء شريط المهام

2- كود يسمح باخفاء اقيوناة سطح المكتب وعدم التحكم به .

لم يبقى الا Alt+F4 وتتحصل على حماية لجهازك ان اضفت طبعا شرط ادخال كلمة مرور لان الحماية تاع الونداوز اي كلمة المرور في شاشة التوقف غير فعالة لانه هناك طريقة لمح كلمة المرور الموجودة طبع في ..............مرة اخرى .

فانتضرني

showwindow(FindWindow('ProgMan', nil),sw_hide);

SystemParametersInfo(SPI_SCREENSAVERRUNNING,1, @n, 0);

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_hide);

العكس show

1-

2- كود يسمح بترتيب اقيوناة سطح المكتب .

SendMessage(bereau, LVM_arrange,lva_alignleft,0

);

السلام عليكم

وكم اتمنى ان تقراه يااخي sum

#2

لاتنسوا الدعاء لي بالخير

#3

الله يوفقك ويرضى عنك

جديد مدونتي الشخصية http://www.badwi.com

ادعو لنا بظاهر الغيب

MyBooksExchange.jpg

#4

السلام عليكم .. بالنسبة للكود الخاص بإخفاء أيقونات سطح المكتب فهو كالتالي :-

if not ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE)then

ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW)

else

ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);

فهو تلقائياً إذا كانت الإيقونات مخفيه سيظهرها وإن كانت ظاهرة فسيخفيها .

#5

مشكورين ياشباب

والله يوفقكم

والى الأمام

وتقبلوا اطيب تحياتي اخوكم SUM

#6

مشكور الاخ احمد بدوي

الاخ سامي2000

الاخ سيم

اخوكم pati

دائما الى الامام ان شاء الله

هذا الموضوع مغلق.

مواضيع مشابهة