Disable Windows Key From Keyboard

up :blush: :blush:

أعرف الكثير من المكونات لفصل واشبك الازرار بالكيبورد

سواء مفتاح الويندوز او شريط ابدا الخ ...

اذا كنت تريدها فلن أبخل عليك

السلام عليكم

أخي الكريم مشكور على مشاركتك الكريمة

أنا جربت مجموعة من الأدوات و الأمثلة لكن يمكن منها ألغاء الـ hotkey الأساسية

لكن زر الويندوز ( أبدأ ) لوحده لم أجد

على كل أرجو منك وضع الأدوات التي تستخدمها و مشكور سلفا :blush:

و السلام ختام

لا أعرف أي شئ في الدلفي سوى الـ := الغليظة :D

استخدم SetWindowsHookEx مع WH_KEYBOARD_LL

داخل الـهوك تخلص من WM_KEYUP و WM_SYSKEYUP

استخدم GetKeyState مع VK_LWIN احفظ القيمة في متغير.

استخدم GetKeyState مع VK_RWIN وقم بعمل OR مع المتغير السابق.

لو كانت قيمة الـ LODWORD مساوية 1 قم بإعادة 1 مثلا واخرج من الـ KeyboardCallback دون استدعاء CallNextHookEx

نفس الطريقة لمنع زري Ctrl+Esc

افحص الـ vkCode من داخل الـ KeyboardCallback مع VK_CONTROL (افحص VK_LCONTROL + VK_RCONTROL)

GetAsyncKeyState مع Esc

عملية AND بينهم ومع 8000h حسبما أذكر

لو النتيجة TRUE اعمل بلوك.

عذراً على سوء الشرح.

أستاذ Xacker في دلفي

يا مرحبا

و الله جبتها بصراحة يبدو أني لم أبحث جيدا قبل طرح الموضوع و جدت حل و هو ما أشار أليه الأخ Xacker في مشاركته

الحل على الشكل التالي

unit Unit1;

interface

uses
  Windows, Classes, Forms,StdCtrls, ExtCtrls, Controls;

type
  TForm1 = class(TForm)
	Button1: TButton;
	Button2: TButton;
	procedure Button2Click(Sender: TObject);
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;
  HookID: HHOOK;


type 
  pkbll = ^tKBDLLHOOKSTRUCT;
  tKBDLLHOOKSTRUCT = record
  vkCode,scancode,flags,time,dwExtraInfo : integer;
  end;

CONST WH_KEYBOARD_LL=13;

implementation

{$R *.dfm}

function LLKeyHookFunc (hookcode:integer; keycode:wParam; kstrokeinfo:lParam): LResult; stdcall;
var struct: pkbll;
begin
   struct:=Ptr(kstrokeinfo);
   Result:=0;
   if (hookcode >= 0) then
   begin
	  if ((struct.vkCode = VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL) < -32766)) then
		 Result:=1;
	  if ((struct.vkCode = VK_LWIN) or (struct.vkCode = VK_RWIN)) then
		 Result:=1;
  end;
  if (Result = 0) then
	 Result:=CallNextHookEx (HookID, hookcode, keycode, kstrokeinfo);
end;

procedure LockSystem;
begin 
   HookID:=SetWindowsHookEx (WH_KEYBOARD_LL, @LLKeyHookFunc, hInstance, 0);
end;

procedure UnLockSystem;
begin
   if (not UnHookWindowsHookEx(HookID)) then
	  UnHookWindowsHookEx(HookID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   LockSystem;
   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button',nil),FALSE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   UnLockSystem;
   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button',nil),TRUE);
end;

end.

كما أنه موجود بالمرفق الذي يقوم بإلغاء زر أبدأ نهائيا سواء بإستخدام الـ Mouse أو الـ Keyboard سواء كان البرنامج Active أو Minimzed أو try

أرجو الأستفادة

Disable_WinKey.rar

اقتباس

إيه حكاية الواد ده يا فيصل :) ؟

Delphawi كتب:

إيه حكاية الواد ده يا فيصل :) ؟

فيصل ؟؟؟ :huh:

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

أخي روبر المعذره على غيابي وعدم إيفائي بالوعد اللذي قطعته لك اقصد الخمس دقائق

لقد انفصل علي النت عدة ايام

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

http://www.dwinlock.kassl.de/

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

بل متوافق مع كل لغات البرمجه الأخرى

تقبل تحياتي واعذرني أولا واخيرا

مشكور أخي الكريم

أنا فضلت أنتظر الـ 5 دقائق حتى الأن :angry: :haha:

بصراحة المشكلة حلت و بكل الأحوال أنا أحمل المكون الأن

و كل الشكر لمساعدتك

أجرب المكون و أردك خبر عنه :wink:

و السلام ختام

أخ Michael Corleone أنا رأيت المكون بالفعل جميل لكن ماذا عن سورس ملف الـ DLL

و المكون غير مجاني :huh:

بكل الأحوال حلت المشكلة بفضل الأخ Xacker مجرد أن قمت بترتيب الأفكار التي تحدث عنها و وتحويلها لدلفي بدون أستخدام أي مكونات

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

و السلام ختام

مشكورين ... بس أخي Rpber هل اعطيتنا الطريقة و الكود الذي جعلت زر win لا يعمل و هل هناك طريقة لغلق لوحة المفاتيح بالكامل.

منتظر ردكم

أخي وضاح

الرد جاء متأخرا فأرجو أن تعذرني

بكل الأحوال المرفق فيه مثال جيد و كافي لأيقاف زر أبدأ

بعد النقر على زر Lock جرب أن تضغط على الزر أبدأ أو الضغط على الزرين ctrl+esc و ستلاحظ أن قائمة أبدأ لن تفتح

و يمكنك أستخدام الكود التالي لألغاء النقر على زر أبدأ بإستخدام الماوس

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button',nil),FALSE) ;

و الكود التالي لإلغاء الكود السابق

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button',nil),TRUE) ;

أرجو الإستفادة

Disable Win Key.rar

مشكور أخي Rober و ما قصرت جاري التنفيذ و التجربة و أطلب طلب آخر هو كيف يمكن أن اقوم بتعطيل لوحة المفاتيح كاملة

وشكراً