سلام عليكم
قمت بتعطيل لوحة المفاتيح ولكن عند الضغط على ctrl + alt + delete يقوم بفتحها ثم قمت بتعطيلها ايضا من الريجستر وعند ضغطها يعطيني رسالة بانه لا يعمل ولكن ايضا يقوم بفتح لوحة المفاتيح .
تعطيل لوحة المفاتيح
مغلق
السلام عليكم..
عانيت من نفس المشكلة، وحاولت حلها بأن أقوم بفتح التاسك منجر كباينري وتركه مفتوح عندها لن تظهر الرسالة عند ضغط alt+ctrl+del
ولكن سيلغ تعطيل لوحة المفاتيح!
في النهاية جعلت البرنامج يقوم بإعادة التشغيل مباشرة عند الضغط على زر alt!!
ووضعت طبعاً قائمة لاختيار اللغة..
الله ييسر لك لو وجدت الحل ضعه لنا..
والسلام عليكم ورحمة الله
قال صلى الله عليه وسلم: من قال إذا أصبح: رضيت بالله ربا وبالإسلام دينا وبمحمد نبيا فأنا الزعيم لآخذن بيده حتى أدخله الجنة. الصحيحة/2686
السلام عليكم
رغم أن السؤال غير واضح جيدا لكن يمكنني أن أساعد بهذا الكود لمعرفة حالة المفاتيح alt و shift و del
function CtrlDown: Boolean; var State: TKeyboardState; begin GetKeyboardState(State); Result := ((State[VK_CONTROL] and 128) <> 0); end; function ShiftDown: Boolean; var State: TKeyboardState; begin GetKeyboardState(State); Result := ((State[VK_SHIFT] and 128) <> 0); end; function AltDown: Boolean; var State: TKeyboardState; begin GetKeyboardState(State); Result := ((State[VK_MENU] and 128) <> 0); end;
والله يوفقكم ... والسلام عليكم
تم تعديل هذه المشاركة بواسطة mohamed.dz في 4 فبراير 2008 في 17:01
بسم الله الرحمن الرحيم " وقل رب زدني علما"
اقتباسقمت بتعطيل لوحة المفاتيح
ما الطريقة التي إستخدمتها؟
بالمناسبة موضوع تعطيل لوحة المفاتيح ليس جديداً راجع المواضيع القديمة خصوصاً التي تتحدث عن تعطيل Ctrl+ALT+DEL
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
شكرا لكم علي الرد
استخدمت هذا الكود لتعطيل الماوس والكيبورد
function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname));
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname));
if _p <> NIL then Result := true;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;
begin
if FuncAvail
('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput(true);
end;
end;ولكن عند الضغط علي ctrl + alt +delete يقوم بفك التعطيل (اي الماوس ولوحة المفاتيح تعمل)
السلام عليكم
لقد وجدت في أحد الكتب الكود الذي وضعته لتشفير لوحة المفاتيح والماوس
ووجدت معه هذه الملاحظات بالإنجليزية :
Notes:
Requires Windows 98/2000 or later.
You can unblock input by pressing CTRL+ALT+DEL
If you don't want the user to unblock
by pressing CTRL+ALT+DEL, additionally write:
SystemParametersInfo(97,Word(True),@OldValue,0);
and to undo it:
SystemParametersInfo(97,Word(False),@OldValue,0);
(Var OldValue : Longbool)
If you want to unblock your input after pressing button1
the simple way to do it is use timer
(just set it for few sec and tell it to unblock input
after counting down
)
لكن لم أعرف أين يتم إضافة السطر اذي يتحدث عنه،
إذا نجحت معك الطريقة فالرجاء أن تبلغنا بذلك مشكورا...
السلام عليكم
تم تعديل هذه المشاركة بواسطة mohamed.dz في 9 فبراير 2008 في 13:39
بسم الله الرحمن الرحيم " وقل رب زدني علما"
شكرا علي الرد
اعقد ان هذا الكود يعمل في وندوز 95 و 98
يستحسن ان يتم تعطيل الكيبورد من لوحة التحكم ثم Accessibility Options يتم اعطاء علامة صح في filterkey
او تعطيلها من الbois
اذا احد لديه دراية بهذا الامر نرجو المساعدة
السلام عليكم
أخي format82
اقتباسيستحسن ان يتم تعطيل الكيبورد من لوحة التحكم ثم Accessibility Options يتم اعطاء علامة صح في filterkeyاو تعطيلها من الbois
كنت أضنك تريد طريقة برمجية لتعطيل لوحة المفاتيح !!
لكن إلى الآن لم أفهم سبب بحثك عن تعطيل لوحة المفاتيح ... يعني ما الفائدة من ذلك؟
شكرا لكم
بسم الله الرحمن الرحيم " وقل رب زدني علما"
انا اريدها برمجيا
السبب
لدي برنامج لادارة المقاهي (محلات النت)
هل في هذا الموضوع ما قد يفيدك ؟
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
شكرا لك (cipher) علي كل هذه معلومات ارجو منك المساعدة في عمل مثال لكيفية تعطيل لوحة المفاتيح وكون لك شاكرا (وجدت كثير من الروابط لا تعمل )
وجدت برنامج بفجوال بيسك في المرفقات يقوم بعمل ما اريده فعلا ارجو منكم تحويلها الي الدلفي انا في امسة الحاجة ليها
وجزاكم الله خيراً
هذا الموضوع مغلق.