تجميد النظام لمدة معينة

[paix144]

السلام عليكم

[kachwahed]

وعليكم السلام ورحمة
مشاركة طيبة بارك الله لك
التابع BlockInput من USER32.DLL لتجميد لوح المفاتيح ومؤشر الماوس في النظام
من الأحسن استدعاء التوابع من مكتبات DLL بشكل ديناميكي وإجراء فحص قبل ذلك، خاصة إذا كان التابع غير مرفق مع ويندوز...

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);

 function FuncExist
 (DLLName, fName: string; var Ptr: pointer):
 boolean;
  var LibHnd: tHandle;
  begin
   Result := false;
   Ptr := NIL;
   if LoadLibrary(PChar(DLLName)) = 0 then exit;
   LibHnd := GetModuleHandle(PChar(DLLName));
   if LibHnd <> 0 then
    begin
    Ptr := GetProcAddress(LibHnd, PChar(fName));
    if Ptr <> NIL then Result := true;
    end;
  end;

 var
   BlockInput : function(Block: BOOL):
                 BOOL; stdcall;
 begin
  if FuncExist
   ('USER32.DLL', 'BlockInput', @BlockInput) then
  begin
   BlockInput(true);
   Sleep(2000);
   BlockInput(false);
  end;
 end; 


الأخ paix144 عندما يكون بحوزتك مثال صغير مثل هذا، يمكن إرفاق الكود البرمجي فقط
شكرا أخي paix144
تحياتي، بالتوفيق.

[paix144]

كل الشكر لك أخي كل مرة تضيف لمستك السحرية مشاء الله
جميل إستعملت دوال recursive صحيح؟
سأخود بنصيحتك في المرة القادمة :happy:

[kachwahed]

جميل إستعملت دوال recursive صحيح؟

الكود السابق لـ Zarko Gajic بتصرف