سؤالي الأول في المنتدى

هدا كود اخر كي تصبر عليا

procedure TForm1.Button1Click(Sender: TObject);

var

keys: TKeyboardState;

begin

GetKeyboardState( keys ); {1 = on, 0 = off}

keys[VK_NUMLOCK] := 1; {Num Lock}

keys[VK_CAPITAL] := 1; {Caps Lock}

keys[VK_SCROLL] := 1; {Scroll Lock}

SetKeyboardState( keys );

end;

اخي لم اجد الكود حاليا لكن في الغد إن شاء الله

شــكراً لردك و اهتمامك . . .

وأنا بانتظار ردك إن شاء الله

:):):):) (clock)(clock)(clock)

procedure TForm1.Button1Click(Sender: TObject);

function FuncAvail (c1, c2: string; var p: pointer):boolean;

var fen: tHandle;

begin

Result := false;p := NIL;

if LoadLibrary(PChar(c1)) = 0 then exit;

fen := GetModuleHandle(PChar(c1));

if fen 0 then

begin

p := GetProcAddress(fen, PChar(c2));

if p NIL then Result := true;

end;

end;

var

xBlockInput : function(Block: BOOL):

BOOL; stdcall;

begin

if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then

xBlockInput(true);

end;

شـــكراً جزيلاً لــك ســوف أجربه و أخبرك اذا صادفني مشاكــل

و شــكرا يا (f)زكيري عبد العالي (f)مرة أخرى :):o

:)شــكراً على الشيفرة انها تمام والحمد لله لكن يوجـد بعض التســاؤلات لو سـمحت . . .

1- الفأرة تتعطل مع لوحة المفاتيح ما هوالسـبب ؟!

2- حل تعطيل لوحة المفاتيح يكون بالضغط على ctrl+alt+delete (انهاء المهمة)

كيف تستجيب لوحة المفاتيح لهذه الأزرار وهي معطـلة ؟

3- كنت أعتقـد أن شيفرة تعطيل لوحة المفاتيح تعتمد على المقاطعات وكتابة شيفرة الأسمبلي

داخــل الديلفي فما رأيك و ردك ؟

شــكرا لك ولاشــرافـك على منتدى ديلفي و أرجــو أن لاأكون قد سـببـت لك الازعاج بأسـئلتي الكثيرة :o.

* مـع تحيات سـوفـت ماكـسل * (gift)

Oh Hoy Oglom Sana Nolyo !!! ???

الأخ نصار يمكن أني بعرفك ؟:mad:

فنحن في نفس المنطقة بالتحديـد حســـب تصريحك ؟

soft_maxell(f)